Écriture dans un fichier

Signaler
Messages postés
110
Date d'inscription
dimanche 11 août 2002
Statut
Membre
Dernière intervention
21 juillet 2006
-
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
-
salut. je veu écrire un fichier mais le prog me di "File already open", le fichier existe pas encore et je vois pas dou vien le bug
mon code:

fnum = FreeFile()
Open WINDIR & "System\RSave.dat" For Input As #fnum
b = "0"
For i = 1 To a - 1
Line Input #fnum, buffer
Open WINDIR & "System" & b & "_RSAVE.DAT" For Output As #2
Print #2, buffer
Close #2
b = b + 1
Next
Close #fnum

[Erreur: Ligne 6]
Merci pour les réponses, a+

2 réponses

Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004

Ben essaie
fnum = FreeFile()
Open WINDIR & "System\RSave.dat" For Input As #fnum
b = "0"
For i = 1 To a - 1
Line Input #fnum, buffer
Close #fnum
Open WINDIR & "System" & b & "_RSAVE.DAT" For Output As #2
Print #2, buffer
Close #2
b = b + 1
Close #fnum
Next b
Je suis pas sûr que ça marche...

@+
Vbsupernul (tout le monde le sait maintenant... c'est malin :sad) )
0
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Il est plus que probable que fnum = 2
Tu essaies donc d'ouvrir 2 fichiers portant le même numéro.
Evite d'utiliser As #2 après As fnum (fnum = FreeFile)
Soit tu imposes les numéros soit tu utilises les 2 fois FreeFile
0