利用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 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 |