[VBS] Sauvegarder variable .txt

Fermé

denstieven Messages postés 662 Date d'inscription jeudi 14 avril 2011 Statut Membre Dernière intervention 15 juillet 2012 - 17 juil. 2011 à 12:50
Thor2003 - 3 mars 2015 à 13:31

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:

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

A voir également:

[VBS] Sauvegarder variable .txt
Vbs windows - Accueil - Optimisation
Sauvegarder favoris chrome - Guide
Sauvegarder téléphone android - Guide
Sauvegarder sms iphone - Guide
Sauvegarder favoris firefox - Guide

1 réponse

Réponse 1 / 1

Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 289
Modifié par Gord21 le 18/07/2011 à 21:21

Bonjour,
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

denstieven Messages postés 662 Date d'inscription jeudi 14 avril 2011 Statut Membre Dernière intervention 15 juillet 2012 41
18 juil. 2011 à 22:45

Merci! Fonctionne bien! Vraiment merci! Bonne vacances encore ;)

denstieven Messages postés 662 Date d'inscription jeudi 14 avril 2011 Statut Membre Dernière intervention 15 juillet 2012 41
18 juil. 2011 à 22:54

Le seul problème c'est que quand le fichier existe déjà ca efface le contenu qu'il y a dedans et le remplace par le nouveau nom. Tu connais une solution ?

Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 289
19 juil. 2011 à 20:36

Bonjour,
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.Close

Pour 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

@+

denstieven Messages postés 662 Date d'inscription jeudi 14 avril 2011 Statut Membre Dernière intervention 15 juillet 2012 41
19 juil. 2011 à 20:37

Ok merci!

Thor2003
3 mars 2015 à 13:31

merci pour c réponce mais comment séparer, sauter une ligne, uhn espace lor de l'ecriture

Discussions similaires

VBA : Range avec références variables..

vérifiez la variable d'environnement TEMP