Bonjour,

Lorsque j’exécute ce script la première fois il écrit dans le fichier texte crée sans problème,
mais quand je ré-exécute une seconde fois il écrase la donnée déjà ecrite dans le fichier texte..

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
rem Preparation de l'environnement
Set fso=CreateObject("Scripting.FileSystemObject")
chemin=InputBox("Destination" & vbnewline & _
"Ex: D:\Fichier.txt","Script","C:\fichier.txt")
 
	rem "8" = ecriture en fin de fichier, "1" = Lecture seul , "2" = Ecriture seul
	rem "true" crée le fichier si non existant, "false" ne crée pas le fichier
	set f=fso.CreateTextFile(chemin,2,true)
 
		rem Ouverture du fichier et ecriture en fin (ligne par ligne)
		set r=fso.OpenTextFile(chemin)
		pass=InputBox("Mot de passe" & vbnewline & _
		"Ex: 123456","Script Mot de passe")
 
				rem Ecrire dans le fichier
				f.WriteLine(pass)
				r.close
 
			rem Destruction des objet
			set x=nothing
			set y=nothing
			set z=nothing
Wscript.Quit