返回列表 上一主題 發帖

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

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 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

        靜思自在 : 願要大、志要堅、氣要柔、心要細。
返回列表 上一主題