vb6 - 相当于 VB6 中的 Directory.CreateDirectory()

Question

尝试一次创建多层文件夹 C:\pie\apple pie\recipes\
不使用几个不同的命令，是否有类似于 Directory.CreateDirectory() 的简单方法

Answer 1

这是我在我的一个项目中使用的一些代码。它需要将引用添加到文件系统对象的项目中。

首先，单击 Project -> References，向下滚动到“Microsoft Scripting Runtime”并选择它。然后你可以使用这个函数:

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