[VBS] Sauvegarder variable .txt
denstieven
Messages postés
717
Statut
Membre
-
Thor2003 -
Thor2003 -
Bonjour,
Je suis debutant en vbs, je creer un script qui se lance avec le pc (donc au demarage de windows). Il y a un inputbox qui demande le nom de l'utilisateur, tout fonctionne bien... Mais moi je voudrais bien qu'il sauvegarde le nom dans un fichier texte. mon code:
Donc je cherche a sauvegarder la variable 'usrwin' qui contient le nom dans un ficher .txt
Merci d'avance
--
"Pour poster une réponse, appuyez sur la touche 'F13' " !!!
Non ne le cherchez pas...
Je suis debutant en vbs, je creer un script qui se lance avec le pc (donc au demarage de windows). Il y a un inputbox qui demande le nom de l'utilisateur, tout fonctionne bien... Mais moi je voudrais bien qu'il sauvegarde le nom dans un fichier texte. mon code:
do
usrwin = InputBox ("Quel est votre nom?", "Login", "Jean Luc")
loop while usrwin = ""
MsgBox "Bonjour " & usrwin & " !"
Donc je cherche a sauvegarder la variable 'usrwin' qui contient le nom dans un ficher .txt
Merci d'avance
--
"Pour poster une réponse, appuyez sur la touche 'F13' " !!!
Non ne le cherchez pas...
A voir également:
- [VBS] Sauvegarder variable .txt
- Vbs windows - Accueil - Optimisation
- Sauvegarder sms iphone - Guide
- Sauvegarder favoris chrome - Guide
- Mes photos sauvegarder sur google - Guide
- Sauvegarder marque page firefox - Guide
1 réponse
Bonjour,
Voici un extrait de l'aide :
Dans ton cas, il faut donc remplacer
par
@+
Expérience: nom dont les hommes baptisent leurs erreurs.
Oscar Wilde
Voici un extrait de l'aide :
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close
Dans ton cas, il faut donc remplacer
MyFile.WriteLine("This is a test.")
par
MyFile.WriteLine(usrwin)
@+
Expérience: nom dont les hommes baptisent leurs erreurs.
Oscar Wilde
Oui, si ton fichier existe, il faut l'ouvrir et non le créer :
Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\testfile.txt", ForAppending, True) f.Write usrwin f.ClosePour t'aider, je te conseille de télécharger le fichier script56.chm par exemple à l'adresse :
http://www.microsoft.com/download/en/details.aspx?displaylang=en&id=2764
@+