DeleteFile()

Deleta um arquivo.
O Filename pode ser um caminho absoluto ou relativo.

Sub DeleteFile(ByVal FileName)
On Error Resume Next
If Mid(FileName, 2, 1) <> ":" Then
FileName = Server.MapPath(FileName)
End If

If Err Then Err.Clear
On Error GoTo 0

Dim FSO
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(FileName) Then
FSO.DeleteFile FileName
End If

Set FSO = Nothing

End Sub