尝试一次创建多层文件夹C:\ pie \ applepie \ recipies \而不使用几个不同的命令,有没有一种类似于Directory.CreateDirectory()的简单方法
这是我在一个项目中使用的一些代码。它要求将引用添加到项目中的文件系统对象。
首先,单击项目->引用,向下滚动到“ Microsoft脚本运行时”并选择它。然后,你可以使用此功能:
Public Sub MakePath(ByVal Folder As String)
Dim arTemp() As String
Dim i As Long
Dim FSO As Scripting.FileSystemObject
Dim cFolder As String
Set FSO = New Scripting.FileSystemObject
arTemp = Split(Folder, "\")
For i = LBound(arTemp) To UBound(arTemp)
cFolder = cFolder & arTemp(i) & "\"
If Not FSO.FolderExists(cFolder) Then
Call FSO.CreateFolder(cFolder)
End If
Next
End Sub