on error resume next
set fso=CreateObject("Scripting.FileSystemObject")
set fds=fso.getfolder("D:\Syslogd\Logs").subfolders
for each fd in fds
name=cdate(left(fd.name,4)&"-"&mid(fd.name,5,2)&"-"&right(fd.name,2))
if datediff("d",name,date)>=3 then fso.deletefolder fd.path
next
将文件保存为vbs,结合定时任务使用。