Discussion :

[walid kh]

salut à tous,
voilà je travaille avec vb 2008 et je veux exéuter ce shell :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shell("net view > poste.txt")

mais malheureusement elle ne retourne rien ce que je veux ce que le fichier "poste.txt" récupére le résultat de la commande "net view" mais ni le fichier "poste.txt" est crée ni la commande "net view " retourne un résultat

merci de m'aider

[blade159]

je pense que cela doit venir de ta commande NET VIEW...

essaies dans la console DOS la commande "net view" et tiens moi au courant du résultat

[tomlev]

Shell est un vieux reste de VB6, il vaut mieux utiliser la classe Process.

Je suis pas sûr qu'on puisse directement écrire la sortie d'une commande dans un fichier de cette façon, mais on peut facilement récupérer la sortie, et l'écrire ensuite dans un fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim psi As New ProcessStartInfo("net", "view")
psi.UseShellExecute = False
psi.RedirectStandardOutput = True
Using proc As Process = Process.Start(psi)
    proc.WaitForExit()
    Dim output As String = proc.StandardOutput.ReadToEnd()
    File.WriteAllText("poste.txt", output)
End Using

[walid kh]

bonjour les amis désolé pour le retard

bon pour la commande "net view" elle marche très bien il n'y a aucun problème
et le code donnée par tomlev marche très bien et c le résultat voulu merci beaucoup mais le problème de ton code c est que la fenetre du Dos reste ouvert il faut qu'on la ferme par soi meme c est la seule contrainte

[tomlev]

le problème de ton code c est que la fenetre du Dos reste ouvert il faut qu'on la ferme par soi meme

Ah bon ? Pourtant j'ai essayé sur 2 OS différents (XP et Seven) et ça fait pas ça chez moi... Tu as repris mon code tel quel ?

[walid kh]

oui je l'ai pris tel quel est mais il faut que je ferme la fenetre Dos moi meme