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