| 标题 | 自动删除超过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文件即可使用。 |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。