Funzione FreeFile
Aggiornamento: novembre 2007
Restituisce un valore Integer corrispondente al numero di file successivo utilizzabile dalla funzione FileOpen.
Public Function FreeFile() As Integer
Eccezioni
Tipo di eccezione |
Numero di errore |
Condizione |
|---|---|---|
Più di 255 file sono in uso. |
Se si esegue l'aggiornamento delle applicazioni Visual Basic 6.0 che utilizzano la gestione degli errori non strutturata, vedere la colonna "Numero di errore". È possibile confrontare il numero di errore con la Proprietà Number (oggetto Err). Se possibile, tuttavia, si consiglia di sostituire il controllo dell'errore con la procedura illustrata nella sezione Cenni preliminari sulla gestione strutturata delle eccezioni per Visual Basic.
Note
La funzione FreeFile consente di ottenere un numero di file non ancora utilizzato.
Esempio
Nell'esempio riportato di seguito la funzione FreeFile viene utilizzata per restituire il successivo numero di file disponibile. Vengono aperti cinque file per l'output all'interno del ciclo e in ognuno di essi vengono scritti alcuni dati.
Dim count As Integer
Dim fileNumber As Integer
For count = 1 To 5
fileNumber = FreeFile()
FileOpen(fileNumber, "TEST" & count & ".TXT", OpenMode.Output)
PrintLine(fileNumber, "This is a sample.")
FileClose(fileNumber)
Next
Note per gli sviluppatori di applicazioni per Smart Device
Questa funzione non è supportata.
Requisiti
Spazio dei nomi: Microsoft.VisualBasic
**Modulo:**FileSystem
Assembly: Visual Basic Runtime Library (in Microsoft.VisualBasic.dll)