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 numero intero che rappresenta il successivo numero di file disponibile per l'utilizzo da parte dell'istruzione Open .
Sintassi
FreeFile[(rangenumber)]
L'argomento facoltativo rangenumber è un oggetto Variant che specifica l'intervallo dal quale deve essere restituito il successivo numero di file libero. Specificare uno 0 (valore predefinito) per restituire un numero di file nell'intervallo da 1 a 255 inclusi. Specificare un 1 per restituire un numero di file nell'intervallo 256 – 511.
Osservazioni
Usa FreeFile per fornire un numero di file che non è già in uso.
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.
In questo esempio viene utilizzata la funzione FreeFile per restituire il successivo numero di file disponibile. Vengono aperti cinque file per l'output all'interno del ciclo e alcuni dati di esempio vengono scritti in ciascuno.
Dim MyIndex, FileNumber
For MyIndex = 1 To 5 ' Loop 5 times.
' Get unused file number.
FileNumber = FreeFile
' Create file name.
Open "TEST" & MyIndex For Output As #FileNumber
' Output text.
Write #FileNumber, "This is a sample."
' Close file.
Close #FileNumber
Next MyIndex