On Error Goto Statement

[KUYJS]

Hi,

Is it possible to use multiple On Error Goto statement in single vba code?

Actually in my code i want to use it twice. One on to to handle any error and one in between when giving command to delete all files on desktop. If any file is there on desktop it's working fine but when no file is on desktop it is considering top on on error statement that calls to end the vba instead of resuming next that i want for second on error statement (Kill path).

 

[Yongle]

An alternative approach

- copy "dummy" file to the desktop before trying to delete all files
- guarantees there is always a file to delete
- avoid the risk of error

Here a file is copied and renamed with a timestamp

With CreateObject("Scripting.FileSystemObject")
    .CopyFile "C:\SourcePath\wbA.xlsx", "C:\DestinationPath\" & Format(Now, "YYMMDDHHMMSS") & "xlsx"
End With

(timestamp used as name to avoid any likelihood of name conflicts)

 

[KUYJS]

That's nice way around