7,785
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
proking 2001-05-26
- 打赏
- 举报
MKDir (app.path & "你的路径名")
OLD_VB_FAN 2001-05-26
- 打赏
- 举报
关注！！！
unruledboy 2001-05-26
- 打赏
- 举报
用最古老最实用的mkdir()如何？
jmylf 2001-05-26
- 打赏
- 举报
上面的也太麻烦了,用FSO吧,不过记住要先引用script对象
YECH 2001-05-26
- 打赏
- 举报
把以下申明放在公共模块中
Public Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Public Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * 260
cAlternate As String * 14
End Type
Public Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Public Function mypath(path As String) As String
If Right(path, 1) = "\" Then
mypath = Left(path, Len(path) - 1)
Else
mypath = path
End If
End Function
在你要实现添加目录的sub 或 function 中添加以下代码：
Dim hSearch As Variant
Dim attr As SECURITY_ATTRIBUTES
Dim filedata As WIN32_FIND_DATA
hSearch = FindFirstFile(mypath(App.path) + "\目录名", filedata)
If (hSearch = INVALID_HANDLE_VALUE) Then
If CreateDirectory(mypath(App.path) + "\目录名", attr) = 0 Then
debug.print "error"
End If
Else
FindClose hSearch
End If
Public Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Public Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * 260
cAlternate As String * 14
End Type
Public Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Public Function mypath(path As String) As String
If Right(path, 1) = "\" Then
mypath = Left(path, Len(path) - 1)
Else
mypath = path
End If
End Function
在你要实现添加目录的sub 或 function 中添加以下代码：
Dim hSearch As Variant
Dim attr As SECURITY_ATTRIBUTES
Dim filedata As WIN32_FIND_DATA
hSearch = FindFirstFile(mypath(App.path) + "\目录名", filedata)
If (hSearch = INVALID_HANDLE_VALUE) Then
If CreateDirectory(mypath(App.path) + "\目录名", attr) = 0 Then
debug.print "error"
End If
Else
FindClose hSearch
End If
jmylf 2001-05-26
- 打赏
- 举报
或者是安你说的
Dim fso As New FileSystemObject, fldr As Folder
Set fldr = fso.CreateFolder(App.path & "\MyTest")
MsgBox "Created folder: " & fldr.Name
Dim fso As New FileSystemObject, fldr As Folder
Set fldr = fso.CreateFolder(App.path & "\MyTest")
MsgBox "Created folder: " & fldr.Name
jmylf 2001-05-26
- 打赏
- 举报
用FSO对象
Dim fso As New FileSystemObject, fldr As Folder
Set fldr = fso.CreateFolder("C:\MyTest")
MsgBox "Created folder: " & fldr.Name
Dim fso As New FileSystemObject, fldr As Folder
Set fldr = fso.CreateFolder("C:\MyTest")
MsgBox "Created folder: " & fldr.Name
