搜索文件夾和子文件夾的文件名包含單詞「數據」和消息框的路徑

Question

我有一個驅動器上的文件夾，我需要搜索（包括子文件夾），並顯示在消息框中包含文件名「數據「（例如C:\data\test-data.txt）。

Set fso = CreateObject("Scripting.FileSystemObject") 

CopyUpdater fso.GetFolder("c:\data\") 

Sub CopyUpdater(fldr) 
    For Each f In fldr.Files 
    If LCase(f.Name) = "data" Then 
     WScript.Echo objFile.Name 
    End If 
    Next 

    For Each sf In fldr.SubFolders 
    CopyUpdater sf 
    Next 
End Sub 

Answer 1

如果你想要文件名的部分匹配使用InStr而不是直接比較。此外，爲了顯示路徑而不是名稱，您需要回顯Path屬性。當然，你需要使用正確的變量。

Sub CopyUpdater(fldr) 
    For Each f In fldr.Files 
    If InStr(LCase(f.Name), "data") > 0 Then 
     WScript.Echo f.Path 
    End If 
    Next 

    For Each sf In fldr.SubFolders 
    CopyUpdater sf 
    Next 
End Sub