Shellexecute error

[AppTux]

Hello all,

I have a script that runs a program, open an folder or file or open a internet adress.

i use ShellExecute()

I want to make a own error if it doesn't exists.

i've got this:

ShellExecute($rVAR) ;$rVAR is the request of a gui control with GUICtrlRead()
        If @error Then
            MsgBox(16,"Error","WindowsRun 1.0 can't find "& $rVAR &". Make sure it's a working internet adress or"&@CRLF&"use the browse button to browse to a file.")
        EndIf

With this script first comes the windows default error window, and then my own error.

how have i to do this?

[Melba23]

AppTux,

Surely the way to approach this is to check $rVAR before you try to ShellExecute it?

If it is a "program, [...] folder or file" then FileExists would do this - for an "internet address", Ping seems to be a good place to start, although I stand ready to be corrected on that.

Then you can produce your own message if there is an error, and proceed to ShellExecute if not.

M23

[Crash]

Sorry I can't be much of help, but to say that your word "address" is spelled wrongly.

[AppTux]

i try several ways, but it doesn't work good and fast.

if the script has to ping, it's during a long time (sometimes 10 seconds)

that's too long.

i use the default windows error message...

[GEOSoft]

I've found that InetGetSize() is often a faster test than Ping().

If InetGetSize("http:\\www.myaddress.com") Then
    ;;Do whatever you want
EndIf