File not found calling Shell("..\.....\....)

[HydraNL]

Hi,

Have a little question.

I'm calling a Shell: eg.
Private Sub Command1_Click()
Shell("C:\Uninstall.exe"). Works fine.
End Sub

but when the file is not available it just stops. So I tried it with On Error GoTo Err
Err: msg "File not found"
Doesn't work also.

Anyone sees what I'm doing wrong?

 

[vladk]

1. Do not use Err for the label. It is the error object.
2. Use MsgBox instead of msg. What is msg?

This is the simplest example:

private sub MySub

on error goto MethodEror

Some code

MethodError:
if err.number <> 0 then
msgbox err.number & " in MySub. " & vbcr & Err.Description
end if
end sub

 

[HydraNL]

Thnx vladk. It works fine now.

By the way: "msg" was a shortcut for MsgBox