自動(dòng)刪除超過(guò)10天的文件及文件夾的vbs代碼
更新時(shí)間:2009年11月14日 00:11:03 作者:
自動(dòng)刪除超過(guò)10天的文件及文件夾vbs,主要是針對(duì)一些沒(méi)有用的文件夾。
復(fù)制代碼 代碼如下:
option explicit
dim fpath,fso,logfile,fwrite
fpath=inputbox ("輸入目標(biāo)文件夾","文件處理器")
logfile="logfile.txt"
set fso=createobject("scripting.filesystemobject")
Set fwrite=fso.opentextfile(logfile,8,true)
getfilename fpath
fwrite.close
Set fso=Nothing
MsgBox "命令執(zhí)行完成!"
function getfilename(path)
dim file,folder,sfolder,fname,subfolder,Files
if not fso.folderexists(path) then
set fso=nothing
msgbox "目標(biāo)文件夾不存在!"
exit function
end if
set folder=fso.getfolder(path)
set files=folder.files
for each file in Files
fwrite.writeline path&"\"&file.name
If file.DateLastModified < Now - 10 Then '判斷是否超過(guò)10天
fso.DeleteFile(file)
'Wscript.Echo file
End If
next
set subfolder=folder.subfolders
for each sfolder in subfolder
fwrite.writeline path&"\"&sfolder.name
If sfolder.DateCreated < Now - 10 Then '判斷是否超過(guò)10天
fso.deletefolder(sfolder)
'Wscript.Echo file
End If
next
end function
將上面代碼存為vbs文件即可使用。
您可能感興趣的文章:
相關(guān)文章
vbs列出內(nèi)網(wǎng)的中計(jì)算機(jī)(工作組也可以)
用vbs列出內(nèi)網(wǎng)的中計(jì)算機(jī)(工作組也可以)的代碼,需要的朋友可以參考下。2011-05-05注冊(cè)表-批處理-VBS之間的功能對(duì)應(yīng)
這篇文章主要介紹了注冊(cè)表-批處理-VBS之間的功能對(duì)應(yīng)2007-02-02vbs結(jié)合wget 實(shí)現(xiàn)下載網(wǎng)站圖片
本文主要實(shí)現(xiàn)了使用vbs腳本調(diào)用wget,下載網(wǎng)站所有頁(yè)面到本腳本目錄,并掃描本腳本目錄中所有文件,讀取本腳本目錄中的所有網(wǎng)頁(yè),匹配圖片 URL 地址,保存所有圖片 URL 地址到 url-img.txt 文件,然后調(diào)用wget: 下載 url-img.txt 指定的圖片到本腳本 img 目錄2014-09-09VBS教程:VBscript語(yǔ)句-For Each...Next 語(yǔ)句
VBS教程:VBscript語(yǔ)句-For Each...Next 語(yǔ)句...2006-11-11