这个fso代码如何写？

[rehearts]

在服务器上有一个temp文件夹，我想把temp文件夹里建立日期不是今天的文件都删除掉，怎么弄啊？

[rehearts]

顶一下

[jarraytan]

Set f = fso.GetFile(filespec)
ShowDateCreated = f.DateCreated

if showdatecreated<>date() then fso.deletefile f.path

[jekexys2004]

帮顶一下

[rehearts]

顶

[aner]

foldername = "D:\xxx"
Set fs = CreateObject("Scripting.FileSystemObject")
Set folder = fs.GetFolder(foldername)
For Each i In folder.Files
CreateDate=i.DateLastModified
if createdate<>date then
fs.deletefile(i.path)
end if
Next