Eof

La funzione Eof restituisce il valore booleano di vero, se si è guinti alla fine del file.

La sintassi è:

fineFile = Eof(file)

Esempio:

Public Sub Main()

 Dim fl As File
 Dim linea As String

  fl = Open "/percorso/del/file" For Read

' Finché non si è guinti alla fine del file...
  While Not Eof(fl)
' ...legge una riga del file di testo...
    Line Input #fl, linea
' ...e la mostra in console:
    Print linea
  Wend

  fl.Close

End