Erreur "Le fichier spécifié est introuvable"

Bonjour à tous,

J'ai un soucis que je n'arrive pas à résoudre qui doit pourtant être simple et lié à un problème de cote.
Voici le contexte :

J'ai defini un VBScript qui possède la définition d'une fonction qui permet d'executer une commande shell :

Code:

---

1 2 3 4 5

function executeshell (commande) Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run commande Set WshShell = nothing end function

---

Dans ce même fichier VBScript, je fais un appel tout simple avec un echo qui doit être ecrit dans un fichier log:

Code:

---

ExecuteShell "echo ********>>c:\log.txt"

---

A l'execution j'ai l'erreur suivante :
"le fichier spécifié est introuvable"

Je ne comprends pas cette erreur, j'ai essayer de mettre entre quote le text de l'echo a ecrire pareil. J'ai essayé plusieurs syntaxe mais je n'arrive pas à m'en sortir.

Est ce que qqun aurait une idée sur la syntaxe a respecter pour executer correctement cette commande Shell.

Merci d'avance.

Citation:

---

Envoyé par rabddoul

Bonjour à tous,
J'ai un soucis que je n'arrive pas à résoudre qui doit pourtant être simple et lié à un problème de cote.
Voici le contexte :
J'ai defini un VBScript qui possède la définition d'une fonction qui permet d'executer une commande shell :

Code:

---

1 2 3 4 5

function executeshell (commande) Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run commande Set WshShell = nothing end function

---

Dans ce même fichier VBScript, je fais un appel tout simple avec un echo qui doit être ecrit dans un fichier log:

Code:

---

ExecuteShell "echo ********>>c:\log.txt"

---

A l'execution j'ai l'erreur suivante :
"le fichier spécifié est introuvable"
Je ne comprends pas cette erreur, j'ai essayer de mettre entre quote le text de l'echo a ecrire pareil. J'ai essayé plusieurs syntaxe mais je n'arrive pas à m'en sortir.
Est ce que qqun aurait une idée sur la syntaxe a respecter pour executer correctement cette commande Shell.
Merci d'avance.

---

Salut, Try this Function

Code:

---

1 2 3 4 5 6 7 8

Function executeshell Dim WSH,Command,Result Set WSH = CreateObject("Wscript.shell") Command = "cmd /c echo ********>>c:\log.txt" Result= WSH.Run(Command,0,True) Set WSH= nothing end Function Call executeshell

---

ou Bien cette Fonction et dis moi le résultat ;) :ccool:

Code:

---

1 2 3 4 5 6 7

Function executeshell(command) Dim WSH,Result Set WSH = CreateObject("Wscript.shell") Result= WSH.Run(Command,0,True) Set WSH= nothing end Function Call executeshell("cmd /c echo ********>>c:\log.txt")

---

Les deux methodes que tu m'as donnes fonctionnent.

Merci.