您能否提供有关“文件夹中的特定文件”的更多详细信息?
您将使用哪些规则来手动识别文件?
对于这种情况,我不会说通过 GUI 是最好的方法。如果有任何东西可以用于识别存储在文件/文件夹系统中的文件,我会尝试通过后端。
一个简单的例子来说明。统计文件夹中包含的文本文件总数,并存储找到的所有 Excel 文件的路径。
Dim sFolder
Dim FSO, objFolder, objFile, objXLSList
Dim intTXTCount
sFolder = "C:\TEMP"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objXLSList = CreateObject("Scripting.Dictionary")
Set objFolder = FSO.GetFolder(sFolder)
intTXTCount = 0
For Each objFile In objFolder.Files
If Regex_Test(objFile.Name, ".*\.[t,T][t,T][t,T]") Then
intTXTCount = intTXTCount + 1
End If
If Regex_Test(objFile.Name, ".*\.[x,X][l,L][s,S]") Then
objXLSList.Add objXLSList.Count, objFile.Name
End If
Next
谢谢你,
Albert Gareev
http://automation-beyond.com/