请教删除文件夹的VBS脚本怎么加入多个文件夹

Tanyong3238 2021-10-26 15:32:54

while true
wscript.sleep 20000

Dim fso, files, file
folderspec = "C:\8.34FANYE\DATA\SH\TEMP"
timespec = 66
Set fso = CreateObject("Scripting.FileSystemObject")
Set files = fso.GetFolder(folderspec).Files
For Each file in files
If DateDiff("s", file.DateLastModified, now) > timespec then
fso.DeleteFile(file)
End If
Next

WEND

 

以上 是循环删除C:\8.34FANYE\DATA\SH\TEMP文件夹里面文件的脚本,现在我有多个文件夹需要同样的方式删除,请问怎么在代码里面加入多个文件夹,谢谢。

...全文
93 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
CSDN-Ada助手 2023-01-13
  • 打赏
  • 举报
回复
您可以前往 CSDN问答-Python 发布问题, 以便更快地解决您的疑问

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧