windows - Help To create Folder1/Folder2 in Windows using VBScript(这两个文件夹之前都不存在，我的意思是创建多级文件夹@a strech。)

Question

我已经使用我的 VBscript 创建了文件夹。当我给出一个文件夹路径时，脚本只创建最后一个文件夹，如果最后一个文件夹不存在，它将失败......我需要一个 vbscript 代码来一次性创建整个文件夹结构。就像 unix 中的 mkdir -p

Answer 1

你可以使用这个函数:

Const PATH = "X:\folder0\folder1\folder2"

Set fso = CreateObject("Scripting.FileSystemObject")

BuildFullPath PATH

Sub BuildFullPath(ByVal FullPath)
    If Not fso.FolderExists(FullPath) Then
        BuildFullPath fso.GetParentFolderName(FullPath)
        fso.CreateFolder FullPath
    End If
End Sub

或者只需从您的脚本中调用 mkdir 命令:

Set objShell = CreateObject("Wscript.Shell")
objShell.Run "cmd /c mkdir X:\folder1\folder2\folder3"