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

binghejin · 发表于 2016-5-30 18:26:54

本帖最后由 pcl_test 于 2016-5-30 20:46 编辑

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

binghejin · 发表于 2016-5-30 18:28:12

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

ivor · 发表于 2016-5-30 20:28:34

回复 2# binghejin

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

复制代码

pcl_test · 发表于 2016-5-30 21:11:27

本帖最后由 pcl_test 于 2016-7-15 23:00 编辑

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 · 发表于 2016-5-30 21:19:51

回复 4# pcl_test

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

binghejin · 发表于 2016-5-30 21:21:03

回复 3# ivor

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

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

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

评分

浏览过的版块