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)