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
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
