cs_wbr
Messages postés110Date d'inscriptiondimanche 11 août 2002StatutMembreDernière intervention21 juillet 2006
-
14 déc. 2002 à 05:31
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 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
Vbsupernul
Messages postés287Date d'inscriptionvendredi 25 octobre 2002StatutMembreDernière intervention18 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) )
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 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