admin管理员组

文章数量:1565362

2024年7月11日发(作者：)

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

h = Len(attribut)

rityDescriptor = &O0

itHandle = 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

本文标签： 文件夹创建输入

版权声明：本文标题：createdirectory创建文件夹 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://www.elefans.com/xitong/1720634159a835029.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。