说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

如何在APP目录下添加文件夹?

编辑:说三道四文库 发布时间:2018-02-24 12:10
HTML文档下载 WORD文档下载 PDF文档下载
谢谢!
用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(App.path & "\MyTest")
  MsgBox "Created folder: " & fldr.Name
 

 
把以下申明放在公共模块中

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


上面的也太麻烦了,用FSO吧,不过记住要先引用script对象
用最古老最实用的mkdir()如何?
关注!!!
MKDir (app.path & "你的路径名")
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘