手机
当前位置:查字典教程网 >脚本专栏 >vbs >自动删除超过10天的文件及文件夹的vbs代码
自动删除超过10天的文件及文件夹的vbs代码
摘要:复制代码代码如下:optionexplicitdimfpath,fso,logfile,fwritefpath=inputbox("输入目标...

复制代码 代码如下:

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文件即可使用。

【自动删除超过10天的文件及文件夹的vbs代码】相关文章:

把任意文件转成vbs文件的file2vbs的vbs代码

利用wscript执行文件[包括可执行exe文件]vbs脚本

VBS 显示“选择文件或文件夹”对话框的代码

一个用vbs查找硬盘所有分区中的指定程序的代码

用vbs实现删除名称中有撇号的文件夹

用VBS精确计算2的100次方的代码

VBS实现的系统服务备份优化代码

用vbs读取远程计算机上的文本文件的代码

IE浏览器增加“复制图像地址”的右键菜单的vbs代码

adodb.stream读文件到数组的代码

精品推荐
分类导航