求一个通过列表文件批量删除文件的vbs？内详

来源：百度知道 编辑：UC知道 时间：2024/05/27 11:59:43
有一个文件夹ABC，ABC中有1000个文件，文件列表list.txt中有300个文件名，并且全部为ABC中的文件，我想删除除了list.txt以外的那700个文件。

这个VBS如何写？谢谢！
我用了yoya0303的答案后，把vbs那个保存为.vbs文件，不过一运行就出现：

---------------------------
Windows 脚本宿主
---------------------------
脚本: D:\abc\yd.vbs
行: 1
字符: 1
错误: 无效字符
代码: 800A0408
源: Microsoft VBScript 编译器错误

---------------------------
确定
---------------------------

我自己试了 OK

VB6.0
open "c:\abc\list.txt" for input as #1
do while not eof(1)
line input #1,x
shell "del c:\abc\" & trim(x)
loop
close 1

vbs
On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("c:\abc\list.txt", 1)
Do Until objFile.AtEndOfStream
strLine = objFile.Readline
objFSO.DeleteFile(strLine)
Loop
objFile.Close

'-------------------------------------
listfile="c:\list.txt" '文件列表
opfolder="d:\abc" '被操作的文件夹
set fso=createobject("scripting.filesystemobject")
set fo=fso.getfolder(opfolder)
for each i in fo.files
en=1
set f=fso.opentextfile(listfile,1)
fn=lcase(i.name)
while not f.atendofstream
rl=lcase(f.readline)
if fn=rl the