用createdirectory创建文件夹。（原创）
Private Sub Command1_Click()
Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
Dim attribut As SECURITY_ATTRIBUTES
attribut.nLength = Len(attribut)
attribut.lpSecurityDescriptor = &O0
attribut.bInheritHandle = False
Dim counter As Long
Dim tnew As String
Dim onew As String
Dim i As Long
Dim lnew As Long
Dim tx As String
Dim mi As String
Dim minstra As Long
Dim a As String
a = InputBox("请输入要创建的文件夹名", "创建文件夹名")
counter = 0
If Right(a, 1) <> "\" Then
a = a & "\"
End If
lnew = Len(a)
For i = 1 To lnew
tx = Left(a, i)
If Len(tx) > 3 Then
mi = Right(tx, 1)
If mi = "\" Then
Call CreateDirectory(tx, attribut)
End If
End If
Next i
end sub