作者Mitnick (Mitnick)
看板EZsoft
标题Re: [请益] 大量删除档案(有清单)的程式
时间Fri Jul 13 19:26:39 2007
※ 引述《a880923 (a880923)》之铭言：
: 今天早上在版上搜寻到这套软体 LS - File List Generator 1.53
: http://home.a03.itscom.net/tsuzu/programing/en/
: 将硬碟的档案 汇出excel档
: 将许多资料重新整理过後 列出了一堆清单(超过万笔的档案资料)
: 里面的档案都需要删除
: 请问有没有这种指定档案清单 然後批次删除的软体? thx
将下面分隔线内的文字存成副档名为 vbs 的档案
将清单档拉到此档案上放开即可
清单档一行为一个档案
[清单档范例]
C:\123.txt
D:\foxy\123.mp3
[执行结果]
清单中所有档案删除，找不到的档案记录在 404.txt 文字档中
==================================================
Function GetAppPath
Dim sPath
sPath = WScript.ScriptFullName
GetAppPath = Left(sPath, InstrRev(sPath, "\"))
End Function
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(WScript.Arguments(0), 1)
Set objLog = objFSO.CreateTextFile(GetAppPath() & "\404.txt", true)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
If objFSO.FileExists(strLine) Then
objFSO.DeleteFile(strLine)
Else
objLog.WriteLine(strLine)
End If
Loop
objLog.Close
objFile.Close
==================================================
1F：→ yinjing:越来越深入 囧 07/13 23:07
※ 编辑: Mitnick 来自: 211.74.118.178 (07/15 16:14)
2F：→ a880923:这个我就没试了.. 是否要安装vb才可以这样作? 07/18 22:47
3F：→ Mitnick:不需要安装VB 07/27 01:16