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 API"目录
Call
CreateNewDirectory("C:\VB API")
MsgBox "在C盘创建了 VB API 目录"
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
156
|
