[vbs]給定路徑建立子目錄
發表於 : 2008年 11月 27日, 14:06
在 vbs 中, 有時會需要建立目錄, 而且是多層的, 此時僅用 Scripting.FileSystemObject 的 CreateFolder 是不夠的, 因為必須一層一層都建好的狀況下才能使用, 於是寫了一個小函數進行直接建立. 使用方法如下:
myCreateFolder("c:123456")
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