套用領域,功能,示例,使用對象,
套用領域
Microsoft Visual Basic
功能
返回一個 FoundFiles對象，該對象包括一次查找操作中找到的所有檔案的檔案名稱。唯讀。
示例
本示例可實現的功能為：逐個查看找到的檔案列表中的每個檔案，並顯示各檔案的路徑。
With Application.FileSearchFor i = 1 To .FoundFiles.Count MsgBox .FoundFiles(i)Next IEnd With FoundFiles 對象代表由檔案查找過程返回的檔案列表。
使用對象
用 FoundFiles 屬性可返回 FoundFiles 對象。本示例可實現：逐個查看找到的檔案列表中的檔案並顯示其中每個檔案的檔案名稱和路徑。用FoundFiles(index) 可返回查找過程中指定檔案的名稱和位置，此處的 index 是該檔案的索引號。
With Application.FileSearch For i = 1 To .FoundFiles.Count MsgBox .FoundFiles(i) Next IEnd With 用 Execute方法可開始檔案查找過程，並更新 FoundFiles 對象。以下示例可實現：在“My Documents”資料夾中查找所有檔案名稱以“Cmd”開頭的檔案，並顯示找到的每個檔案的位置和檔案名稱。該示例還可實現：對返回的檔案按檔案名稱的字母升序排序。
Set fs = Application.FileSearchWith fs .LookIn = "C:\My Documents" .FileName = "cmd*" If .Execute(SortBy:=msoSortbyFileName, _ SortOrder:=msoSortOrderAscending) > 0 Then MsgBox "There were " & .FoundFiles.Count & _ " file(s) found." For i = 1 To .FoundFiles.Count MsgBox .FoundFiles(i) Next i Else MsgBox "There were no files found." End IfEnd With
