keep the DOS window open after running Call Shell command

[tripyre]

I recently resolved an issue I had with passing a variable to a call
shell command, but now I need it to pause or leave the window open so I
can manually close it. Below is my code, and I am not sure where to
begin to keep the DOS window from closing.

Dim stAppName As String
Dim stIPAddress As String

stAppName = "C:\WINDOWS\system32\ping.exe "
stIPAddress = [IPAddress]
Call Shell(stAppName & stIPAddress, 1)

So what happens is a DOS window opens up and pings the ip address that
is listed in the form field, and once the command finishes the DOS
window closes. I would like for the DOS window to stay open.

Thanks,

Tripwire

[Trevor Best]

tr*****@gmail.com wrote:

I recently resolved an issue I had with passing a variable to a call
shell command, but now I need it to pause or leave the window open so I
can manually close it. Below is my code, and I am not sure where to
begin to keep the DOS window from closing.

Dim stAppName As String
Dim stIPAddress As String

stAppName = "C:\WINDOWS\system32\ping.exe "
stIPAddress = [IPAddress]
Call Shell(stAppName & stIPAddress, 1)

So what happens is a DOS window opens up and pings the ip address that
is listed in the form field, and once the command finishes the DOS
window closes. I would like for the DOS window to stay open.

Thanks,

Tripwire

Shell Environ$("COMSPEC") & " /k " & strAppNAme & strIPAddress,1
will keep the dos box open at the command prompt, you can carry on and
type other commands into that box until you type "exit".

Or you can
stAppName = "C:\WINDOWS\system32\ping.exe -t "

Then it will ping until you press Ctrl+C

--
[Oo=w=oO]

[tripyre]

Used the Shell Environ$("COMSPEC") & " /k ping """ & stIPAddress, 1
and this worked great! Thanks for the help.