Open App.Path & "\img.txt" For Input Access Read As #1
Do While Not EOF(1) ' Ripete fino alla fine del file.
Input #1, letfile, letfilecorto, LETindex, LETdata ' Legge i dati nelle variabili.
Call prendi(LETindex, letfile, letfilecorto)
Loop
Close #1
Leggo un file che potrebbe essere anke vuoto. Quand’esso è vuoto giustamente mi da l’errore “Input oltre la fine del file” e le soluzioni dicono cosi:
Non è possibile leggere oltre la posizione di fine file. Causa e soluzione dell'errore:
Un'istruzione Input # o Line Input # sta leggendo un file vuoto o un file nel quale tutti i dati sono già stati letti. Per individuare la fine del file, utilizzare la funzione EOF immediatamente prima dell'istruzione Input #.
Io ce l’ho gia l’ EOF ma non cambia nulla. Dove sta il problema?
Rispondi quotando
