vbs如何实现全盘查找/搜索指定文件并进行更新替换

tonyabbs

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

1. @echo off
   
2. :update
   
3. IF %1.==. GOTO END
   
4. 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
   
5. shift
   
6. goto update
   
7. :END

复制代码

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

pcl_test

1. Set fso = CreateObject("Scripting.FileSystemObject")
   
2. Set wmi = GetObject("winmgmts:\\.\root\cimv2")
   
3. 
   
4. If WSH.Arguments.Count = 0 Then
   
5.     Msgbox "拖放文件到vbs文件上"
   
6. Else
   
7.     SrcFile = WSH.Arguments(0)
   
8.     fname = fso.GetBaseName(SrcFile)
   
9.     ext = Mid(fso.GetExtensionName(SrcFile), 1)
   
10.     For each drive in fso.Drives
    
11.         Set Items = wmi.ExecQuery("Select * From CIM_DataFile where Drive='"&drive&"' and FileName='"&fname&"' and Extension='"&ext&"'")
    
12.         For Each Item In Items
    
13.             If LCase(Item.Name) <> LCase(SrcFile) Then
    
14.                 Msgbox Item.Name
    
15.                 'fso.CopyFile SrcFile,Item.Name,true
    
16.             End If
    
17.         Next
    
18.     Next
    
19. End If

复制代码