删除文件类

Function DeleteFile(filename)
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.GetFile(Server.MapPath(filename))
tf.Delete
set tf=nothing
set fso=nothing
End Function

调用方式:

DeleteFile(replace(date(),"-","")&"/"&filename)