Aktiver en DOS-commando fra VB 6.0

SHELL \"PING xxx.xxx.xxx.xxx\"

Eller brug ShellExecute.

Declare Function ShellExecute Lib \"shell32.dll\" Alias \"ShellExecuteA\" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Dim lngHandle As Long
lngHandle = ShellExecute(0&, \"open\", \"PING\", \"192.255.255.4\", \"\", 1)

Tak - mille tak - undskyld den lange ventetid - ferie

Det avr så lidt, og jeg overlever nok ventetiden :-)