自动删除超过10天的文件及文件夹代码,VBS代码库,德仔网

代码语言

代码分类

【VBS】自动删除超过10天的文件及文件夹

作者: / 发布于2010/12/30/ 925

自动删除超过10天的文件及文件夹vbs，主要是针对一些没有用的文件夹

<div>
option explicit 
dim fpath,fso,logfile,fwrite 
fpath=inputbox ("输入目标文件夹","文件处理器") 
logfile="logfile.txt" 
set fso=createobject("scripting.filesystemobject") 
Set fwrite=fso.opentextfile(logfile,8,true) 
getfilename fpath 
fwrite.close 
Set fso=Nothing 
MsgBox "命令执行完成！" 
function getfilename(path) 
dim file,folder,sfolder,fname,subfolder,Files 
if not fso.folderexists(path) then 
set fso=nothing 
msgbox "目标文件夹不存在！" 
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
</div>

试试其它关键字

同语言下

可能有用的

贡献的其它代码Label