[问题求助] vbs如何实现根据指定文本内指定行列出的文件删除指定文件夹/目录里的同名文件？

binghejin

1、首先读取指定文件内的指定行。（比如：ls.txt里面的第2行）
2、删除指定目录中的和ls.txt文件中第二行内容相同的文件。（比如：ls.txt里面第二行的内容为123.txt，那么就删除指定文件夹中的123.txt）
3、不用弹窗，直接执行就好！

binghejin

在线等，有大神来吗？我完全不会vbs，但是批处理解决不了这个问题，只好用vbs代码了！

ivor

回复 2# binghejin

@echo off
for /f "delims=" %%a in (ls.txt) do (
	del "%%a"
)
复制代码

pcl_test

fd = "D:\指定文件夹"
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("ls.txt", 1)
Do While file.AtEndOfStream <> true
    i=i+1
    f = file.ReadLine
    If i = 2 Then Exit Do
Loop
msgbox "要删除的文件为 "&fd&"\"&f  '测试无误自行屏蔽该行
If fso.FileExists(fd&"\"&f) Then fso.DeleteFile fd&"\"&f
复制代码

binghejin

回复 4# pcl_test


    老大，我完全不会vbs，给个完整代码吧！

binghejin

回复 3# ivor


    无效，而且最重要的是，用批处理的话，运行一次没问题，如果做成交互的话，当运行第二次的时候，就不行了。