返回列表 上一主題 發帖

[發問] Application.FileSearch 無法使用

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2014-11-6 16:08 | 顯示全部帖子
回復 3# h60327
寫了一個物件類別模組，只實現你有用到的部分FileSearch功能
使用方法:
1. Project 中插入一個物件類別模組，物件類別模組Name改為clsFileSearch，貼上以下程式碼
  1. Private msLookIn As String
  2. Private msFileName As String
  3. Private mbSearchSubFolders As Boolean
  4. Private mcolFoundFiles As Collection

  6. Private Sub Class_Initialize()
  7.   Set mcolFoundFiles = New Collection
  8. End Sub

  10. Public Property Get LookIn() As String
  11.   LookIn = msLookIn
  12. End Property
  13. Public Property Let LookIn(ByVal sLookIn As String)
  14.   msLookIn = sLookIn
  15. End Property

  17. Public Property Get FileName() As String
  18.   FileName = msFileName
  19. End Property
  20. Public Property Let FileName(ByVal sFileName As String)
  21.   msFileName = sFileName
  22. End Property

  24. Public Property Get SearchSubFolders() As Boolean
  25.   SearchSubFolders = mbSearchSubFolders
  26. End Property
  27. Public Property Let SearchSubFolders(ByVal bSearchSubFolders As Boolean)
  28.   mbSearchSubFolders = bSearchSubFolders
  29. End Property

  31. Public Property Get FoundFiles() As Collection
  32.   Set FoundFiles = mcolFoundFiles
  33. End Property

  35. Public Function Execute() As Long
  36.   Dim oFSO As Object, oFolder As Object
  37.   Dim oFile
  38.   
  39.   Set oFSO = CreateObject("Scripting.FileSystemObject")
  40.   Set mcolFoundFiles = New Collection '清空
  41.   
  42.   If oFSO.FolderExists(msLookIn) Then
  43.     Set oFolder = oFSO.GetFolder(msLookIn)
  44.     For Each oFile In oFolder.Files
  45.       If oFile.Name Like msFileName Then mcolFoundFiles.Add oFile.Path
  46.     Next
  47.    
  48.     If mbSearchSubFolders Then FindSubFolder oFolder.subfolders
  49.   End If
  50.   
  51.   Execute = mcolFoundFiles.Count
  52. End Function

  54. Private Sub FindSubFolder(ByRef oSub As Object)
  55.   Dim x, oFile
  56.   For Each x In oSub
  57.     For Each oFile In x.Files
  58.       If oFile.Name Like msFileName Then mcolFoundFiles.Add oFile.Path
  59.     Next
  60.    
  61.     FindSubFolder x.subfolders
  62.   Next  
  63. End Sub
複製代碼
2. 然後把你的CommandButton1_Click()中的
    Set fs1 = Application.FileSearch
    改成
    Set fs1 = New clsFileSearch
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 世上有兩件事不能等：一、孝順 二、行善。
返回列表 上一主題