Question

怎么让电脑全盘查出某个文件并删除的vbs程序

Answer 1

'========================VBS遍历硬盘删除指定文件名

On Error Resume Next
Dim fPath
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = '文件'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDirs = objWMIService. _
ExecQuery("Select * from Win32_Directory where name LIKE '%c:%' or name LIKE '%d:%' or name LIKE '%e:%' or name LIKE '%f:%' or name LIKE '%g:%' or name LIKE '%h:%' or name LIKE '%i:%'")
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each objDir in colDirs
fPath = objDir.Name & "文件"
objFSO.DeleteFile(fPath), True
Next

追问

怎么用啊

追答

替换"文件"为你要删除的文件名
例1.txt。。这里应为
("Select * from Win32_Process Where Name = '1.txt")
.........
fPath = objDir.Name & "\1.txt"

Answer 2

这个 我觉得你只要打开查找就可以全盘查找了 效率还很高。。。