Nota: La funzione, il metodo, la proprietà o l'oggetto descritto in questo argomento è disabilitato se Microsoft Jet Expression Service è in esecuzione in modalità sandbox, che impedisce la valutazione delle espressioni potenzialmente pericolose. Per altre informazioni sulla modalità sandbox, cercare "modalità sandbox" nella Guida.
Restituisce un valore Integer contenente il valore booleanoTrue quando è stata raggiunta la fine di un file aperto per Inputcasuale o sequenziale.
Sintassi
EOF( numerofile )
Il numero file obbligatorioargomento è un valore Integer contenente qualsiasi numero di file valido.
Osservazioni
Usare EOF per evitare l'errore generato tentando di ottenere input oltre la fine di un file.
La funzione EOF restituisce False fino al raggiungimento della fine del file. Con i file aperti per l'accesso casuale o binario , EOF restituisce False fino a quando l'ultima istruzione Get eseguita non è in grado di leggere un intero record.
Con i file aperti per l'accesso binario , un tentativo di leggere il file usando la funzione Input finché EOF non restituisce True genera un errore. Usare le funzioni LOF e Loc invece di EOF durante la lettura di file binari con Inputoppure get quando si usa la funzione EOF . Con i file aperti per Output, EOF restituisce sempre True.
Esempio
Nota: Gli esempi seguenti illustrano l'uso di questa funzione in un modulo di Visual Basic, Applications Edition (VBA). Per altre informazioni sull'uso di VBA, selezionare Riferimenti per sviluppatori nell'elenco a discesa accanto a Cerca e immettere uno o più termini nella casella di ricerca.
Questo esempio usa la funzione EOF per rilevare la fine di un file. Questo esempio presuppone che MYFILE sia un file di testo con alcune righe di testo.
Dim InputData' Open file for input.Open "MYFILE" For Input As #1' Check for end of file.Do While Not EOF(1) ' Read line of data. Line Input #1, InputData ' Print to the Immediate window. Debug.Print InputData Loop' Close file.Close #1
