批处理代码:
@echo off
for /f %%i in ('wmic logicaldisk where "DriveType=3" get DeviceID^|more +1') do for /f "delims=" %%j in (1.txt) do for /f "delims=" %%k in ('wmic fsdir where "drive='%%i' and filename='%%j'" get name^|more +1') do set tp=%%k&call rd /q /s "%%tp%%">nul 2>nul
echo 全部清除完成!&pause
VBS代码:
Set Fso = CreateObject ("Scripting.FileSystemObject")
Set TxtFl = fso.OpenTextFile ("1.txt",1)
i=0
Do While TxtFl.AtEndofStream<>True
ReDim Preserve Fns(i)
Fns(i)=UCase (Trim (TxtFl.ReadLine))
i=i+1
Loop
for each Drive in Fso.Drives
If Drive.DriveType = 2 Then
FindAllFolder (Drive.RootFolder)
End if
next
Sub FindAllFolder (FdrPath)
On Error Resume next
Set Fdr = Fso.GetFolder (FdrPath)
For Each SubFdr In fdr.SubFolders
If Err.Number=0 Then
For Each Fn In Fns
If UCase (SubFdr.Name)=Fn Then
Fso.DeleteFolder SubFdr.Path,true
End If
Next
FindAllFolder (SubFdr.Path)
End If
Next
On Error Goto 0
End Sub
MsgBox "全部清除完成!"
把bat或vbs放到1.txt文件同一个目录里。运行。都能实现你的要求。
温馨提示:答案为网友推荐,仅供参考