利用API创建文件目录

答案：
利用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
 

上一个：怎样用VB在应用程序中调用API
下一个：使用调用外部程序函数实现API函数高级功能