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

[Tanyong3238]

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