利用API创建文件目录
发表于:2007-07-14来源:作者:点击数:
标签:
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 bI
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 bSu
clearcase/" target="_blank" >ccess 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
原文转自:http://www.ltesting.net