利用API创建文件目录


Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long


Private Type SECURITY_ATTRIBUTES

nLength As Long

lpSecurityDescriptor As Long

bInheritHandle As Long

End Type


Sub Main()

\'在C盘创建了"VB编程乐园"目录

Call CreateNewDirectory("C:\\VB编程乐园")

MsgBox "在C盘创建了 VB编程乐园 目录"

End Sub


Public Sub CreateNewDirectory(NewDirectory As String)

Dim sDirTest As String

Dim SecAttrib As SECURITY_ATTRIBUTES

Dim bSuccess As Boolean

Dim sPath As String

Dim iCounter As Integer

Dim sTempDir As String

Dim iFlag As Integer

iFlag = 0

sPath = NewDirectory


If Right(sPath, Len(sPath)) <> "\\" Then

sPath = sPath & "\\"

End If


iCounter = 1

Do Until InStr(iCounter, sPath, "\\") = 0

iCounter = InStr(iCounter, sPath, "\\")

sTempDir = Left(sPath, iCounter)

sDirTest = Dir(sTempDir)

iCounter = iCounter + 1


\'创建目录


SecAttrib.lpSecurityDescriptor = &O0

SecAttrib.bInheritHandle = False

SecAttrib.nLength = Len(SecAttrib)

bSuccess = CreateDirectory(sTempDir, SecAttrib)

Loop

End Sub