现在有个存放具体地址的.text，这个地址有可能存在也有可能不存在或是不完全存在，要按照这个.text来生成多级文件夹。

请百度

不知道有什么简单的生成多级文件夹的函数可用。
好像没有这样的函数，只能逐级的来

网上随便百度了一下。就找到了结果。
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
Private Sub Command2_Click()
Dim i As Integer, r, s As String
s = Text1.Text
r = Split(s, Chr(13) + Chr(10))
For i = 0 To UBound(r)
CreateDirectory r(i)
Next
End Sub
Private Function CreateDirectory(ByVal sDirectory As String) As Boolean
'创建指定的目录(可以是多级目录)，sDirectory:要创建的文件夹
On Error GoTo ErrHandle
Dim lngResult As Long
sDirectory = checkpath(sDirectory)
lngResult = MakeSureDirectoryPathExists(sDirectory)
CreateDirectory = IIf(lngResult = 0, False, True)
ErrHandle:
If Err <> 0 Then
CreateDirectory = False
End If
End Function
Private Function checkpath(ByVal sPath As String) As String
If Right$(sPath, 1) = "\" Then
checkpath = sPath
Else
checkpath = sPath & "\"
End If
End Function

用split函数以“/”为边界对地址进行拆分，循环遍历被分割出来的每一个元素，然后一层一层得makedir

shell"cmd.exe /c md " & text1 是这样的吗？