用createdirectory创建文件夹

最新推荐文章于 2023-10-12 11:23:06 发布

原创最新推荐文章于 2023-10-12 11:23:06 发布 · 2.5k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#attributes #string #security #command #function

VB 专栏收录该内容

3 篇文章

订阅专栏

博客介绍了使用CreateDirectory函数创建文件夹的方法。通过代码展示，先声明该函数，设置安全属性，获取用户输入的文件夹名，对输入进行处理，最后循环调用CreateDirectory函数按路径层级创建文件夹。

用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