[问题求助] 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
复制代码

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

pcl_test

Set fso = CreateObject("Scripting.FileSystemObject")
Set wmi = GetObject("winmgmts:\\.\root\cimv2")

If WSH.Arguments.Count = 0 Then
    Msgbox "拖放文件到vbs文件上"
Else
    SrcFile = WSH.Arguments(0)
    fname = fso.GetBaseName(SrcFile)
    ext = Mid(fso.GetExtensionName(SrcFile), 1)
    For each drive in fso.Drives
        Set Items = wmi.ExecQuery("Select * From CIM_DataFile where Drive='"&drive&"' and FileName='"&fname&"' and Extension='"&ext&"'") 
        For Each Item In Items
            If LCase(Item.Name) <> LCase(SrcFile) Then
                Msgbox Item.Name
                'fso.CopyFile SrcFile,Item.Name,true
            End If
        Next
    Next
End If
复制代码