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