Office中國論壇/Access中國論壇 › Access中國門戶舊版 ›Access› API › 查看內(nèi)容

利用API創(chuàng)建文件目錄

1970-1-1 08:00| 發(fā)布者: 朱亦文| 查看: 2070| 評論: 0

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盤創(chuàng)建了"Accessbbs"目錄
Call CreateNewDirectory("C:\Accessbbs")
MsgBox "在C盤創(chuàng)建了 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

iCounter = 1
Do Until InStr(iCounter, sPath, "\") = 0
iCounter = InStr(iCounter, sPath, "\")
sTempDir = Left(sPath, iCounter)
sDirTest = Dir(sTempDir)
iCounter = iCounter + 1

'創(chuàng)建目錄

SecAttrib.lpSecurityDescriptor = &O0
SecAttrib.bInheritHandle = False
SecAttrib.nLength = Len(SecAttrib)
bSuccess = CreateDirectory(sTempDir, SecAttrib)
Loop
End Sub

收藏分享邀請

帳號		自動登錄	找回密碼
密碼			注冊

利用API創(chuàng)建文件目錄

最新評論

相關(guān)分類