With Application.FileSearch
.searchSubFolders = false
.Filename = "*.txt"
.lookIn = strFolder
if .Excute() > 0 then
for i = 1 to .FoundFiles.count
.FoundFiles(i) ' 取得文件对象
next i
end if
end With
searchSubFolders False : 子文件夹文件不取得
True : 子文件夹一起取得
本文共 322 字，大约阅读时间需要 1 分钟。
With Application.FileSearch
.searchSubFolders = false
.Filename = "*.txt"
.lookIn = strFolder
if .Excute() > 0 then
for i = 1 to .FoundFiles.count
.FoundFiles(i) ' 取得文件对象
next i
end if
end With
searchSubFolders False : 子文件夹文件不取得
True : 子文件夹一起取得
转载于:https://www.cnblogs.com/liangx85/p/3498945.html