[VB6] Ping con Shell

[kalosjo]

Ovviamente la devi concatenare....

Dim IPESEMPIO as String
IPESEMPIO="192.168.0.1"

ping = Shell("cmd /k ping " & IPESEMPIO & " > c:\ping1.txt", vbHide)