Ping ds shell

Messages postés
120
Date d'inscription
dimanche 22 octobre 2000
Statut
Membre
Dernière intervention
26 février 2014
-
Messages postés
120
Date d'inscription
dimanche 22 octobre 2000
Statut
Membre
Dernière intervention
26 février 2014
-
bonjour

voila je voudrais faire ca :

Dim path As String

Private Sub Command1_Click()

Dim reponse As Integer

path = App.path & "ping.txt"

reponse = Shell("ping 192.51.51.5 > " & path)

End Sub

en theorie ca marche pa de message d'erreur mais mon fichier ping.txt n'esst pas cree pkoi ??

6 réponses

Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
Parce que :))

path = App.path & "" & "ping.txt"
Messages postés
120
Date d'inscription
dimanche 22 octobre 2000
Statut
Membre
Dernière intervention
26 février 2014

merci

mais sa ne marche toujours pas ??
Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
t'es sous WinXP ??
Messages postés
120
Date d'inscription
dimanche 22 octobre 2000
Statut
Membre
Dernière intervention
26 février 2014

oui WIN XP Pro

mon mail c'est bias@wanadoo.fr
Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
j'ai eu le meme probleme:
& je l'ai résolu en créant un fichier bat
si je me rappele bien:

@Echo Off
Ping %1 > %2

dans le code:

R=Shell("MonBat.bat & " " & MonIP & " " & MonFichier)
Messages postés
120
Date d'inscription
dimanche 22 octobre 2000
Statut
Membre
Dernière intervention
26 février 2014

si je passe par le fichier bat en direct sa marche mais si je passe par le VB sa fonctionne pas

sa me soooouuulllee :D