自动删除超过10天的文件及文件夹的vbs代码
导读：收集整理的这篇文章主要介绍了自动删除超过10天的文件及文件夹的vbs代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下:option explicIT dim f...
收集整理的这篇文章主要介绍了自动删除超过10天的文件及文件夹的vbs代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下:option explicIT
dim fpath,fso,LOGfile,fwrite
fpath=inputbox ("输入目标文件夹","文件@R_304_2595@")
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文件即可使用。 您可能感兴趣的文章:
- bat自动删除指定文件夹下前几天的文件的代码
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 自动删除超过10天的文件及文件夹的vbs代码
本文地址： https://pptw.com/jishu/609823.html