Error 55 El fichero esta abierto. ¡¡Mentira!!
Publicado por jonis (1 intervención) el 27/08/2003 21:10:38
toy aciendo un programa k de un archivo seke falum k son tos los alumnos, divida a los suspensos en un FSUSP y a los aprobados en FAPRO, pero tras el primer OPEN me sale error 55 en el segundo open. el archivo ya esta abierto. ¡¡Mentira!! son tres archivos distintos!! grabados en variables distintas. Aki abajo sta el codigo
-------------------
Private Sub Form_Load()
N1 = FreeFile
s2 = FreeFile
f3 = FreeFile
Open "C:\FAPRO.DAT" For Append As #s2
Open "C:\FSUSP.DAT" For Append As #f3
Open "C:\FALUM.TXT" For Input As #N1
While Not EOF(1)
Input #N1, NOM, DIRE, EDA, CUR, NOTA, ALT
If NOTA >= 5 Then
Write #s2, NOM, DIRE, EDA, CUR, NOTA
Else
Write #f3, NOM, DIRE, EDA, CUR, NOTA
End If
Wend
Close
RB1.LoadFile ("C:\FAPRO.TXT")
RB2.LoadFile ("C:\FSUSP.TXT")
End Sub
-------------------
Private Sub Form_Load()
N1 = FreeFile
s2 = FreeFile
f3 = FreeFile
Open "C:\FAPRO.DAT" For Append As #s2
Open "C:\FSUSP.DAT" For Append As #f3
Open "C:\FALUM.TXT" For Input As #N1
While Not EOF(1)
Input #N1, NOM, DIRE, EDA, CUR, NOTA, ALT
If NOTA >= 5 Then
Write #s2, NOM, DIRE, EDA, CUR, NOTA
Else
Write #f3, NOM, DIRE, EDA, CUR, NOTA
End If
Wend
Close
RB1.LoadFile ("C:\FAPRO.TXT")
RB2.LoadFile ("C:\FSUSP.TXT")
End Sub
Valora esta pregunta
0