返回列表 上一主題 發帖

[發問] Dir 函數使用移動多個資料問題

Jason80Lo

帖子
35 
主題
8 
精華
0 
積分
45 
點名
0  
作業系統
Win7 
軟體版本
2010 
閱讀權限
10 
註冊時間
2015-9-22 
最後登錄
2016-4-14 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2016-3-9 22:18 | 只看該作者

[發問] Dir 函數使用移動多個資料問題

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

20160309.rar (61.58 KB)
收藏 分享

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2016-3-13 01:46 | 只看該作者
本帖最後由 luhpro 於 2016-3-13 01:49 編輯

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

  4.   With Application.FileSearch
  5.     .NewSearch
  6.     .LookIn = "D:\20160309"
  7.     .SearchSubFolders = True
  8.     .Filename = "新文字文件*.txt"
  9.     .MatchTextExactly = True
  10.     .FileType = msoFileTypeAllFiles

  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
複製代碼

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題