Ecriture dans un fichier texte avec inputbox

Version imprimable

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:

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

06/02/2015, 23h14
ProgElecT

Salut saidhamga, bienvenue sur DVP

Il te faut vérifier si le fichier existe avec FileExists If fso.FileExists(chemin) = False Then
si False, tu utilises ta ligne set f=fso.CreateTextFile(chemin,2,true)
si True, tu utilises ta ligne (avec 1 arguments en plus) set r=fso.OpenTextFile(chemin,8)

Erreur :800A...
Permission refusée
?!
8O

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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,8,true)
 
		If fso.FileExists(chemin) = False Then
			set f=fso.CreateTextFile(chemin,8,true)
		else
			rem Ouverture du fichier et ecriture en fin (ligne par ligne)
			set r=fso.OpenTextFile(chemin,8)
			pass=InputBox("Mot de passe" & vbnewline & _
			"Ex: 123456","Script Mot de passe")
		end if
				rem Ecrire dans le fichier
				f.WriteLine(pass)
				f.close
 
			rem Destruction des objet
			set f=nothing
			set fso=nothing
Wscript.Quit

:salut: et bienvenue dans le monde du Vbscript :king:
Testez ce

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
Dim fso,chemin,f,pass
'Preparation de l'environnement
Set fso=CreateObject("Scripting.FileSystemObject")
chemin=InputBox("Destination" & vbnewline & _
"Ex: D:\Fichier.txt","Script","C:\fichier.txt")
'"8" = ecriture en fin de fichier, "1" = Lecture seul , "2" = Ecriture seul
'"true" crée le fichier si non existant, "false" ne crée pas le fichier
'Ouverture du fichier et ecriture en fin (ligne par ligne)
set f=fso.OpenTextFile(chemin,8,True)
pass=InputBox("Mot de passe" & vbnewline & _
"Ex: 123456","Script Mot de passe")
'Ecrire dans le fichier
f.WriteLine(pass)
f.close
'Destruction des objets
set f=nothing
set fso=nothing
Wscript.Quit

07/02/2015, 02h26
saidhamga

Merci hackoofr !
ça marche impeccable.