標題: [發問] Dir 函數使用移動多個資料問題 [打印本頁]

---

作者: Jason80Lo    時間: 2016-3-9 22:18     標題: Dir 函數使用移動多個資料問題

各位大大，小弟使用Dir到指定的資料夾的子資料夾中將裡面的2個 .TXT檔，CopyFile至我另一個指定的資料夾中排序
但是只能夠搜尋Copy到第一個.txt，就無法搜尋Copy到第二個.txt, 使用 Do While xFile <> "" 迴圈想要來抓取搜尋到第二個.txt  
但目前還是沒有成功，請高手協助，感謝
[attach]23409[/attach]
[attach]23410[/attach]

---

作者: luhpro    時間: 2016-3-13 01:46

本帖最後由 luhpro 於 2016-3-13 01:49 編輯

回復 1# Jason80Lo
或許你可以試試看FileSearch 物件.
(以下程式是依 Excel VBA 所附範例修改)

1. Sub nn()
   
2.   Dim iI%
   
3. 
   
4.   With Application.FileSearch
   
5.     .NewSearch
   
6.     .LookIn = "D:\20160309"
   
7.     .SearchSubFolders = True
   
8.     .Filename = "新文字文件*.txt"
   
9.     .MatchTextExactly = True
   
10.     .FileType = msoFileTypeAllFiles
    
11. 
    
12.     If .Execute() > 0 Then
    
13.       MsgBox "找到 " & .FoundFiles.Count & " 個檔案."
    
14.       For iI = 1 To .FoundFiles.Count
    
15.         MsgBox "第 " & iI &."個檔案為 : " & FoundFiles(iI)
    
16.       Next iI
    
17.     Else
    
18.       MsgBox "找不到任何檔案."
    
19.     End If
    
20.   End With
    
21. End Sub

複製代碼

---

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