Board logo

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

作者: tonyabbs    时间: 2016-8-29 23:33     标题: vbs如何实现全盘查找/搜索指定文件并进行更新替换

本帖最后由 pcl_test 于 2016-8-29 23:58 编辑

请问如何把bat的for in 和wmic改为vbs程序
我有如下的BAT程序:
  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
复制代码
功能是拖放要更新的文件后,自动全盘查找同名文件,覆盖更新。
请问如何用vbs实现该功能?谢谢!
作者: pcl_test    时间: 2016-8-30 01:33

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





欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2