7大叔论坛图片,丁关根的子女,谷景生将军简历
const filepath = "e:\log" '定义目录
set fso = createobject("scripting.filesystemobject")
showsubfolders fso.getfolder(filepath)
sub showsubfolders(folder)
for each subfolder in folder.subfolders
set files = subfolder.files
if files.count <> 0 then
for each file in files
if file.datelastmodified < now - 30 then '判断是否超过30天
fso.deletefile(subfolder.path & "\" & file.name) '删除
'wscript.echo subfolder.path & "\" & file.name '显示
end if
next
end if
showsubfolders subfolder
next
end sub
如对本文有疑问,请在下面进行留言讨论,广大热心网友会与你互动!!
点击进行留言回复
相关文章:
-
-
-
-
用vbs实现文本循环读取
因为测试中需要读取一批url数据进行浏览,其实使用qtp本身的table能实现多种读取方式,但是因为需要tabel是使用excel保存的,在没有...
[阅读全文]
-
-
-
-
-
-
-
网友评论