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)'删除生成的临时文件

@echo off

set src=1.txt

set dst=2.txt

for %%a in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (

  if exist %%a:\nul (

     for /f "delims=" %%i in ('dir /s/a/b/a-d "%%a:\%src%" 2^>nul') do (

         copy "%%i" "%%~dpi%dst%"

     )

  )

)

---