Comment récupérer le résultat du cmd /c dir c: /s

Le
Marc Sylvain
Est-il possible de récupérer le résultat

vers une variable SANS créer un fichier



Dim wshShell

Set wshShell = CreateObject("WScript.Shell")

wshShell.Run "cmd /c dir c: /s", 0, True

Set wshShell = Nothing



Je ne veux pas envoyer le resultat vers un fichier

wshShell.Run "cmd /c dir c: /s > C:Test.txt", 0, True



Merci

Marc
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Fred
Le #15406821
Dans : news:,
Marc Sylvain disait :


Bonjour,

Est-il possible de récupérer le résultat
vers une variable SANS créer un fichier



Avec la méthode Exec.
Elle retourne un objet WshScriptExec.
Il est alors possible de lire la propriété StdOut de cet objet comme un
fichier.

Exemple :

Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("cmd /c dir c: /s")
output = ""
While Not oExec.StdOut.AtEndOfStream
output = output & oExec.StdOut.ReadLine & vbCrLf
Wend
MsgBox output

Pour vbs, le groupe microsoft.public.fr.scripting est plus adéquat.

--
Fred
http://www.cerber mail.com/?3kA6ftaCvT (enlever l'espace)
Marc Sylvain
Le #15406811
Je ne peux extraire ce message
Il me donne une erreur de message expiré

Marc




"Fred"
Dans : news:,
Marc Sylvain disait :


Bonjour,

Est-il possible de récupérer le résultat
vers une variable SANS créer un fichier



Avec la méthode Exec.
Elle retourne un objet WshScriptExec.
Il est alors possible de lire la propriété StdOut de cet objet comme un
fichier.

Exemple :

Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("cmd /c dir c: /s")
output = ""
While Not oExec.StdOut.AtEndOfStream
output = output & oExec.StdOut.ReadLine & vbCrLf
Wend
MsgBox output

Pour vbs, le groupe microsoft.public.fr.scripting est plus adéquat.

--
Fred
http://www.cerber mail.com/?3kA6ftaCvT (enlever l'espace)


Fred
Le #15406801
Dans : news:%,
Marc Sylvain disait :

Je ne peux extraire ce message
Il me donne une erreur de message expiré



Que veux-tu dire ???


--
Fred
http://www.cerber mail.com/?3kA6ftaCvT (enlever l'espace)
Marc Sylvain
Le #15406791
Merci Fred C'est parfait !!!!

Marc

"Fred"
Dans : news:,
Marc Sylvain disait :


Bonjour,

Est-il possible de récupérer le résultat
vers une variable SANS créer un fichier



Avec la méthode Exec.
Elle retourne un objet WshScriptExec.
Il est alors possible de lire la propriété StdOut de cet objet comme un
fichier.

Exemple :

Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("cmd /c dir c: /s")
output = ""
While Not oExec.StdOut.AtEndOfStream
output = output & oExec.StdOut.ReadLine & vbCrLf
Wend
MsgBox output

Pour vbs, le groupe microsoft.public.fr.scripting est plus adéquat.

--
Fred
http://www.cerber mail.com/?3kA6ftaCvT (enlever l'espace)


Marc Sylvain
Le #15406781
>> Je ne peux extraire ce message
Il me donne une erreur de message expiré






Oubli ce message

c'est un erreur de code 18 (18 pouces devant l'ecran)

Marc




"Fred"
Dans : news:%,
Marc Sylvain disait :

Je ne peux extraire ce message
Il me donne une erreur de message expiré



Que veux-tu dire ???


--
Fred
http://www.cerber mail.com/?3kA6ftaCvT (enlever l'espace)


Publicité
Poster une réponse
Anonyme