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