一個(gè)可以刪除指定天數(shù)文件的vbs腳本
更新時(shí)間：2007年02月26日 00:00:00 作者：
復(fù)制代碼 代碼如下:
Const FilePath = "E:\log" '定義目錄
Set FSO = CreateObject("Scripting.FileSystemObject")
ShowSubfolders FSO.GetFolder(filepath)
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
Set Files = subfolder.Files
If Files.Count <> 0 Then
For Each File In Files
If File.DateLastModified < Now - 30 Then '判斷是否超過(guò)30天
FSO.DeleteFile(Subfolder.Path & "\" & File.Name) '刪除
'Wscript.Echo Subfolder.Path & "\" & File.Name '顯示
End If
Next
End If
ShowSubFolders Subfolder
Next
End Sub
相關(guān)文章
VBS教程：運(yùn)算符-Eqv 運(yùn)算符...2006-11-11
VBS教程：函數(shù)-UCase 函數(shù)...2006-11-11
腳本 MsAgent組件 微軟精靈 揪出系統(tǒng)自帶的寵物
你知道系統(tǒng)里有一個(gè)隱藏的寵物嗎？ 將以下代碼保存為后綴為.vbs的文件，再雙擊運(yùn)行，看看出來(lái)什么？一個(gè)可愛(ài)的魔法老人！還會(huì)說(shuō)話、移動(dòng)、吹喇叭……2009-06-06
還是高手強(qiáng)通過(guò)下面的代碼實(shí)現(xiàn)遠(yuǎn)程執(zhí)行計(jì)算機(jī)的exe文件2008-06-06
VBS教程：函數(shù)-Weekday 函數(shù)...2006-11-11
此系列教程更新頻率為1~2周左右，具體時(shí)間還不能確定。初步定為10講內(nèi)容，感謝broly的辛苦勞動(dòng)2011-12-12
用vbs實(shí)現(xiàn)注冊(cè)表開(kāi)關(guān)的腳本
注冊(cè)表開(kāi)關(guān)[以下代碼保存為.vbs]2008-06-06
下載文件到本地運(yùn)行的vbs...2006-10-10
VBS教程：函數(shù)-Eval 函數(shù)...2006-11-11
VBS實(shí)現(xiàn)工作表按指定表頭自動(dòng)分表
下面的VBS腳本就是實(shí)現(xiàn)的工作表按指定表頭（由用戶選擇）自動(dòng)分表功能。需要的朋友只要將要操作的工作表拖放到腳本文件上即可輕松實(shí)現(xiàn)工作表分表2013-01-01