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
Partager