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.
' @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 APIs are as follows.