2007年5月22日

用VBScript自動刪除過期的檔案

以下的設定是刪除檔案修改時間為三日以前的C:\\test\\*.bak檔案。

'自動化檔案維護管理程式

'天數
daysAgo = 3

'路徑
dirPath = "C:\\test"

'副檔名
extName = ".bak"

';;;;;程式開始;;;;;

Set fs = CreateObject("Scripting.FileSystemObject")
Set w = WScript.CreateObject("WScript.Shell")

Set f = fs.GetFolder(dirPath)
Set fc = f.Files

dateBefore = Now() - daysAgo

For Each ff in fc
fileName = ff.Name
fileDate = ff.DateLastModified

If Right(fileName, Len(extName)) = extName And fileDate < dateBefore Then
fs.DeleteFile(dirPath & "\\" & fileName)
End If
Next

2007年5月2日

不只教你理財 - 楚狂人的BLOG

想過著富足的生活,從改變自己的觀念開始做起!

在《Cheers: 快樂工作人》雜誌上發現這個不錯的網站,值得參考&學習。

連結:楚狂人的BLOG
lyhcode by lyhcode
歡迎轉載,請務必註明出處!