作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

  用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

相关软件：