VBScript to delete file

The following source allows you to delete a file on a users hard disc without having to know if it really exists or not.

On top it provides you with error handling, so you only have to catch its Boolean result instead of having to check and handle these things every time.

Source Code

' @Author - Alexander Bolte
' @ChangeDate - 2014-12-19
' @Description - Using the Scripting API to delete a file,
' if it is existing under provided file path.
' @Returns ture, if file has been deleted or has not existed
' under given file path else false.
Function deleteFileOnHD(filePath)
    Dim fs ' As Scripting.FileSystemObject
    Dim ret ' As Boolean

    On Error Resume Next

    Set fs = createObject("Scripting.FileSystemObject")
    ' Check for a files existance.
    If fs.FileExists(filePath) Then
        ' delete a file.
        fs.DeleteFile(filePath)
    End If

    If Err.Number <> 0 Then
        Err.Clear
    Else
        ret = True
    End If
    Set fs = Nothing

    deleteFileOnHD = ret
End Function

Referenced API

Referenced APIs are as follows.

Hits: 7192