用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

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752043/viewspace-992012/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752043/viewspace-992012/