请教删除文件夹的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文件夹里面文件的脚本,现在我有多个文件夹需要同样的方式删除,请问怎么在代码里面加入多个文件夹,谢谢。

...全文
48 回复 打赏 收藏 举报
写回复
回复
切换为时间正序
请发表友善的回复…
发表回复
相关推荐
发帖
控件
加入

1433

社区成员

VB 控件
社区管理员
  • 控件
申请成为版主
帖子事件
创建了帖子
2021-10-26 15:32
社区公告
暂无公告