1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
Sujet Précédent Sujet Suivant

Écriture dans un fichier

cs_wbr Messages postés 110 Date d'inscription dimanche 11 août 2002 Statut Membre Dernière intervention 21 juillet 2006 - 14 déc. 2002 à 05:31
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 14 déc. 2002 à 15:08
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

Réponse 1 / 2
Vbsupernul Messages postés 287 Date d'inscription vendredi 25 octobre 2002 Statut Membre Dernière intervention 18 janvier 2004
14 déc. 2002 à 10:08
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
Réponse 2 / 2
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
14 déc. 2002 à 15:08
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
Rejoignez-nous