小編給大家分享一下如何使用vbs實(shí)現(xiàn)自動刪除超過10天的文件及文件夾，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！

在吐魯番等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強(qiáng)發(fā)展的系統(tǒng)性、市場前瞻性、產(chǎn)品創(chuàng)新能力，以專注、極致的服務(wù)理念，為客戶提供成都網(wǎng)站制作、做網(wǎng)站、外貿(mào)營銷網(wǎng)站建設(shè) 網(wǎng)站設(shè)計(jì)制作按需開發(fā)網(wǎng)站,公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),品牌網(wǎng)站設(shè)計(jì),全網(wǎng)營銷推廣,外貿(mào)營銷網(wǎng)站建設(shè),吐魯番網(wǎng)站建設(shè)費(fè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 '判斷是否超過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 '判斷是否超過10天
fso.deletefolder(sfolder)
'Wscript.Echo file
End If
next
end function

將上面代碼存為vbs文件即可使用。

以上是“如何使用vbs實(shí)現(xiàn)自動刪除超過10天的文件及文件夾”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對大家有所幫助，如果還想學(xué)習(xí)更多知識，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

當(dāng)前文章：如何使用vbs實(shí)現(xiàn)自動刪除超過10天的文件及文件夾-創(chuàng)新互聯(lián)
URL標(biāo)題：http://www.aaarwkj.com/article10/jcego.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站內(nèi)鏈、網(wǎng)頁設(shè)計(jì)公司、搜索引擎優(yōu)化、建站公司、定制開發(fā)、品牌網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)