定期刪除10天前修改的檔案

'給物件賦值
set fso=CreateObject("Scripting.FileSystemObject")
set fs=fso.getfolder("D:\databak").files
for each f in fs
d=f.datelastmodified
aa=datediff("d",d,Now)
'msgbox aa
'如果修改日期和現在日期間隔大於10天則刪除
if aa>10 then
fso.deleteFile f
end if
next