作者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