[vbs]給定路徑建立子目錄

vbs, jscript, bat等 script 語言-非 web 使用的討論區
回覆文章
頭像
tim
文章: 1349
註冊時間: 2008年 11月 26日, 00:49

[vbs]給定路徑建立子目錄

文章 tim »

在 vbs 中, 有時會需要建立目錄, 而且是多層的, 此時僅用 Scripting.FileSystemObject 的 CreateFolder 是不夠的, 因為必須一層一層都建好的狀況下才能使用, 於是寫了一個小函數進行直接建立. 使用方法如下:

myCreateFolder("c:123456")

代碼: 選擇全部

     
    Function myCreateFolder(foldername) 
      Set myfso = CreateObject("Scripting.FileSystemObject") 
      p1 = InStr(foldername, ":") 
      If p1 > 0 Then 
        p2 = InStr(p1+2, foldername, "")     
        Do While p2 > 0         
            mytestfoldername = Left(foldername, p2-1) 
            'WScript.Echo mytestfoldername 
            If Not myfso.FolderExists(mytestfoldername) Then 
              myfso.CreateFolder(mytestfoldername) 
            End If 
            p2 = InStr(p2+1, foldername, "")  
        Loop 
        If Right(foldername,1)<>"" And Not myfso.FolderExists(foldername) Then 
          myfso.CreateFolder(foldername) 
        End If 
      End If 
      Set myfso = Nothing 
    End Function 
多多留言, 整理文章, 把經驗累積下來.....
回覆文章