| 标题 | 自动删除超过10天的文件及文件夹的vbs代码 |
| 范文 | 自动删除超过10天的文件及文件夹vbs，主要是针对一些没有用的文件夹。 代码如下: 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 将上面代码存为vbs文件即可使用。 |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。