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

Rank: 1

帖子
70 
积分
76 
技术
6  
捐助
0  
注册时间
2012-8-1 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2016-5-30 18:26 | 只看该作者

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

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

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

评分人数

收藏 分享

binghejin

Rank: 1

帖子
70 
积分
76 
技术
6  
捐助
0  
注册时间
2012-8-1 
2楼
发表于 2016-5-30 18:28 | 只看该作者
在线等，有大神来吗？我完全不会vbs，但是批处理解决不了这个问题，只好用vbs代码了！

TOP

ivor

Rank: 6Rank: 6

帖子
979 
积分
3381 
技术
172  
捐助
40  
注册时间
2012-1-7 
3楼
发表于 2016-5-30 20:28 | 只看该作者
回复 2# binghejin 
  1. @echo off

  2. for /f "delims=" %%a in (ls.txt) do (

  3. 	del "%%a"

  4. )
复制代码
#&cls&@powershell "Invoke-Expression ([Io.File]::ReadAllText('%~0',[Text.Encoding]::UTF8))" &pause&exit

TOP

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5333 
技术
685  
捐助
0  
注册时间
2014-10-19 
4楼
发表于 2016-5-30 21:11 | 只看该作者
本帖最后由 pcl_test 于 2016-7-15 23:00 编辑 
  1. fd = "D:\指定文件夹"

  2. Set fso = CreateObject("Scripting.FileSystemObject")

  3. Set file = fso.OpenTextFile("ls.txt", 1)

  4. Do While file.AtEndOfStream <> true

  5.     i=i+1

  6.     f = file.ReadLine

  7.     If i = 2 Then Exit Do

  8. Loop

  9. msgbox "要删除的文件为 "&fd&"\"&f  '测试无误自行屏蔽该行

  10. If fso.FileExists(fd&"\"&f) Then fso.DeleteFile fd&"\"&f
复制代码

TOP

binghejin

Rank: 1

帖子
70 
积分
76 
技术
6  
捐助
0  
注册时间
2012-8-1 
5楼
发表于 2016-5-30 21:19 | 只看该作者
回复 4# pcl_test


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

TOP

binghejin

Rank: 1

帖子
70 
积分
76 
技术
6  
捐助
0  
注册时间
2012-8-1 
6楼
发表于 2016-5-30 21:21 | 只看该作者
回复 3# ivor


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

TOP

返回列表