[问题求助] vbs如何实现全盘查找/搜索指定文件并进行更新替换

tonyabbs

请问如何把bat的for in 和wmic改为vbs程序
我有如下的ＢＡＴ程序：

@echo off
:update
IF %1.==. GOTO END
for /F "skip=1" %%a in ('wmic logicaldisk where DriveType^=3 get DeviceID') do for /F "delims=" %%b in ('dir /s/b/a-d %%a\%~nx1 2^>nul') do copy  %1 "%%b" /y & echo %%b
shift
goto update
:END
复制代码

功能是拖放要更新的文件后，自动全盘查找同名文件，覆盖更新。
请问如何用ｖｂｓ实现该功能？谢谢！