自动删除超过10天的文件及文件夹的vbs代码
来源:本站原创|时间:2022-11-25|栏目:vb|
复制代码 代码如下:
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文件即可使用。
您可能感兴趣的文章
- 01-10VBS教程:方法-Delete 方法
- 01-10利用vbscript脚本修改文件内容,此适用于自动化的操作中
- 01-10利用VBS脚本自动创建计算机帐户的代码
- 01-10可以定时自动关机的vbs脚本
- 01-10一个可以删除指定天数文件的vbs脚本
- 01-10vbscript自动配置IIS的代码
- 01-10使用ADSI、ASP和一对魔术戏法自动地创立一个虚拟目录的方法
- 01-10利用vbs自动修改ip的代码
- 01-10用vbs实现删除名称中有撇号的文件夹
- 01-10用vbs删除前一天创建的备份文件