Vbscript 在文件夹和子文件夹中搜索包含单词“的文件名”；“数据”；以及消息框的路径

我在驱动器上有一个文件夹，需要搜索该文件夹（包括子文件夹），并在消息框中显示包含文件名为“data”的所有文件（例如

C:\data\test data.txt

）

---

如果希望文件名部分匹配，请使用，而不是直接比较。此外，为了显示路径而不是名称，您需要回显属性。当然，您需要使用正确的变量

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

子副本更新程序（fldr）
对于fldr.文件中的每个f
如果InStr（LCase（f.Name），“数据”）>0，则
WScript.Echo f.Path
如果结束
下一个
对于fldr子文件夹中的每个sf
复制更新程序sf
下一个
末端接头

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