pb vbs WScript.Quit ()

Question

bonjour, j'ai un script en vbs tout simple qui recupere la valeur du premier caractere d'un fichier texte 

il est lance par un script bat.

si je le lance sans passe par le script bat il marqche niquel suivant
la valeur dans le fichier texte  il me renvoie differrent message.

mais si il est lance par le .bat il ne marche pas et je ne sais pas pourkoi.

le plus bizarre est que dans mon script bat je fait la meme operation
sur un fichier texte a une autre endroit et la ca marche parfaitement
alors que la seule chose qui change dans mon script est le nom du
fichier texte .



voila mon code :

Const cForReading = 1

Set objFso = CreateObject("Scripting.FileSystemObject")

Set ts = objFso.OpenTextFile("av.txt", cForReading)

    

Do While Not ts.AtEndOfStream

CaracToSearch = Mid(ts.ReadLine,1,1)



If CaracToSearch = "1" Then

             MsgBox("pas installer")

        WScript.Quit (1)

       End If

If CaracToSearch = "2" Then

             MsgBox("pas a jour")

        WScript.Quit (2)

       End If

If CaracToSearch = "3" Then

             MsgBox("pas actif")

        WScript.Quit (3)

       End If

If CaracToSearch = "4" Then

             MsgBox("cle pas bonne")

        WScript.Quit (4)

    End If

If CaracToSearch = "5" Then

             MsgBox("tout bon")

        WScript.Quit (0)

       End If

WScript.Quit (7)

Loop

Set ts = nothing

Set objFso = nothing





les msgbox ne sont la que pour les test normalement le script ne fait que renvoier la valeur de WScript.Quit

cs_Yoyo2B · Answer

met le chemin complet de ton fichier : 
c:\av.txt plutot que av.txt

oublie pas de mettre le troisieme argument de opentextfile &#224; false pour pas cr&#233;er le fichier (sinon, v&#233;rifie que tu a les autorisations pour le faire) et v&#233;rifie avant tout la pr&#233;sence du fichier
If Fso.FileExist(path) =true then
ou tout simplement
if DIr(path) <> "" then

avant le Set ts = nothing
, si tu a ouvert le fichier, ... n'oublie pas de le fermer
ts.close()

mais c bien de penser &#224; d&#233;charger les variable :-)

et pour ton code, si c juste des quit a chaque fois, utilise plutot

select case CaracToSearch 
   case "1","2","3","4"
       WScript.Quit (cint(CaracToSearch ))
   case "5"
      WScript.Quit(0)
end select 

et si tu veux tes msg box, cr&#233;e un tableau
dim Tab(4)
Tab = array ("tout bon","pas installer","pas a jour","pas actif","cle pas bonne")
et tu met juste 
msgbox Tab(cint(CaracToSearch )) ds ton select case 

voil&#224; ....

happy coding ...

Pb vbs WScript.Quit ()

1 réponse

Discussions similaires