[Import] common ASP functions: Del ()

<%
'Function: FSO deletes an object.
'Source: http://jorkin.reallydo.com/article.asp? Id = 484
'Need the Path function: http://jorkin.reallydo.com/article.asp? Id = 401

Public Function Del (ByVal sFileName)
On Error Resume Next
Del = False
SFileName = Path (sFileName)
Dim oFSO
Set oFSO = Server. CreateObject ("Scripting. FileSystemObject ")
If oFSO. FileExists (sFileName) Then
OFSO. DeleteFile sFileName, True
Del = True
End If
Set oFSO = Nothing
If Err. Number <> 0 Then
Err. Clear
Del = false
End if
End Function
%>

Source: http://Jorkin.Reallydo.Com/default.asp? Id = 484