標題: [發問] FileSearch 物件問題請益 [打印本頁]

---

作者: child    時間: 2011-11-9 18:22     標題: FileSearch 物件問題請益

利用.Filename = "AA*.jpg"可搜尋符合條件的檔案，請益如何一次比對多種條件的檔案，條件有AA*.jpg，AB*.jpg、BB*.jpg、BC*.jpg。很謝謝大家的幫忙^__^

---

作者: luhpro    時間: 2011-11-9 21:10

回復 1# child
我想你可以考慮把搜尋檔名文字依序放入陣列或字典內,
然後再用 For Each 陣列(或字典) ...  的方式逐個搜尋出想要的檔案.

---

作者: GBKEE    時間: 2011-11-10 11:10

回復 1# child
只比對到大寫   .FoundFiles(i) Like "*\[A-Z][A-Z]*.jpg"   
只比對到小寫   .FoundFiles(i) Like "*\[a-z][a-z]*.jpg"   
比對大小寫   .FoundFiles(i) Like "*\[A-z][A-z]*.jpg"

1. Sub Ex()
   
2.     Dim i As Integer, ii As Integer
   
3.     With Application.FileSearch
   
4.         .NewSearch                  '重新設定所有搜尋準則為其預設設定。
   
5.         .LookIn = "D:\"             '制訂搜尋目錄
   
6.         .Filename = "*.jpg , *.gif"         '搜尋的副檔名
   
7.         .SearchSubFolders = False   '不往下搜尋子目錄  反之為 True
   
8.         .Execute                    '開始搜尋指定的檔案
   
9.         If .FoundFiles.Count > 0 Then
   
10.             ii = 1
    
11.             For i = 1 To .FoundFiles.Count
    
12.                 If .FoundFiles(i) Like "*\[A-Z][A-Z]*.jpg" Then
    
13.                     Cells(ii, "A") = .FoundFiles(i)
    
14.                     ii = ii + 1
    
15.                 End If
    
16.             Next
    
17.         End If
    
18.     End With
    
19. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)