Aide en VBS
Résolu
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
Dans un fichier VBS J'ai ceci :
x=MsgBox("Oui ou Non ?",4,"XXXXXXXXXX")
J'aimerais que si l'utilisateur clique sur oui, il y est un fichier créé marquer oui dedans et si il marque non, il y est un fichier créé marquer non dedans. Je sais que sa peut se faire car si on marque non, la valeur 6 est renvoyer tandis que oui renvois un 7 mais je ne sais pas comment avoir c'est information.
Merci d'avance,
Dentsdemetal
--
Comptes sur moi , moi je compte sur mes doigts ! (Windows Power)
Dans un fichier VBS J'ai ceci :
x=MsgBox("Oui ou Non ?",4,"XXXXXXXXXX")
J'aimerais que si l'utilisateur clique sur oui, il y est un fichier créé marquer oui dedans et si il marque non, il y est un fichier créé marquer non dedans. Je sais que sa peut se faire car si on marque non, la valeur 6 est renvoyer tandis que oui renvois un 7 mais je ne sais pas comment avoir c'est information.
Merci d'avance,
Dentsdemetal
--
Comptes sur moi , moi je compte sur mes doigts ! (Windows Power)
2 réponses
-
Bonjour,
Voilà un exemple en reprenant la demande initiale de dentdemetal:
Const ForWriting = 2 Dim fso, f, rep Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\TestVB\MonTestVB.txt", ForWriting,true) rep = MsgBox ("Oui ou Non", vbYesNo,"") If rep = vbyes then f.write("Oui") Else f.write("Non") End if Set fso = Nothing Set f = Nothing
Le fichierMonTestVB.txt se trouve dans le répertoire "c:\TestVB\". Bien sûr le répertoire doit exister.
;o)
-
Bonjour,
La valeur de la réponse (6 ou 7) est dans la variable x.
Où est la difficulté ? Un "If Then Else" doit pouvoir faire l'affaire.
;o)-
-
-
h3ll0
voila si sa peut d'aider ?
Voila comment écrire dans un fichier en VBS
on error resume next
dim OFS, YorN
set OFS = CreateObject("Scripting.FileSystemObject")
set YorN = OFS.OpenTextFile("FullPath\File.txt", ForWriting,True)
if ( x = 6) then
YorN.write("NON")
else
YorN.write("OUI")
endif
&VbCrLf = doit être le saut à la ligne
( J'aimeré bien le savoir moi aussi ) as-tu chercher aussi ? -
-
-
