vbs搜索指定的文件

'纯vbs的话要递归遍历所有文件夹，比较麻烦，可以和cmd结合起来用
targetfile="test.jpg"'改成你要找的文件名
Set WshShell = WScript.CreateObject("Wscript.Shell")
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
tempfile=WScript.ScriptName&"_temp.txt"
wshshell.Run "cmd /c dir d:\"&targetfile&"/b /s>"&tempfile,1,True
Set f=fso.GetFile(tempfile)
If f.Size>0 Then'dir找到目标文件时才会向tempfile中写入数据，没找到时只会生成一个空文件
Set ft=fso.OpenTextFile(tempfile,1)
Do Until ft.AtEndOfStream'可能会找到多个文件，故需要读每一行的数据
line=ft.ReadLine'读入一行
MsgBox line'仅供演示
Loop
ft.Close
End If
fso.DeleteFile(tempfile)'删除生成的临时文件