Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic Comment récupérer le résultat du cmd /c dir c: /s

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

5 réponses
Avatar
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
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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)
Avatar
Marc Sylvain
Je ne peux extraire ce message
Il me donne une erreur de message expiré

Marc




"Fred" a écrit dans le message de news:

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)


Avatar
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)
Avatar
Marc Sylvain
Merci Fred C'est parfait !!!!

Marc

"Fred" a écrit dans le message de news:

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)


Avatar
Marc Sylvain
>> 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" a écrit dans le message de news:

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)