用createdirectory建立資料夾 (轉)

用createdirectory建立資料夾 (轉)[@more@]

  用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