1,453
社区成员




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