Aide en VBS
Résolu
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
A voir également:
- Aide en VBS
- Vbs windows - Accueil - Optimisation
- Vbs - Télécharger - Édition & Programmation
- Vbs editor - Télécharger - Édition & Programmation
- Fichier vbs ✓ - Forum Virus
- Vbs malware gen ✓ - Forum Virus
2 réponses
Bonjour,
Voilà un exemple en reprenant la demande initiale de dentdemetal:
Le fichierMonTestVB.txt se trouve dans le répertoire "c:\TestVB\". Bien sûr le répertoire doit exister.
;o)
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)
Utilisateur anonyme
Merci Polux 31 pour ce code, Question résolut . :)
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)
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 ?
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 ?
