Notă
Funcția, metoda, obiectul sau proprietatea descrisă în acest subiect este dezactivată dacă Microsoft Jet Expression Service rulează în modul sandbox, ceea ce împiedică evaluarea expresiilor potențial nesigure. Pentru mai multe informații despre modul sandbox, căutați "modul sandbox" în Ajutor.
Returnează un număr întreg reprezentând următorul număr de fișier disponibil pentru utilizare de instrucțiunea Open .
Sintaxă
FreeFile[(numărzonă)]
Argumentul opțional numărzontal este o variantă care specifică zona din care trebuie returnat următorul număr de fișier liber. Specificați un 0 (implicit) pentru a returna un număr de fișier cuprins între 1 și 255, inclusiv. Specificați un 1 pentru a returna un număr de fișier cuprins între 256 și 511.
Observații
Utilizați fișierul liber pentru a furniza un număr de fișier care nu se utilizează deja.
Exemplu
Notă
Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA). Pentru mai multe informații despre lucrul cu VBA, selectați Referințe pentru dezvoltatori în lista verticală de lângă Căutare și introduceți unul sau mai mulți termeni în caseta de căutare.
Acest exemplu utilizează funcția FreeFile pentru a returna următorul număr de fișier disponibil. Cinci fișiere sunt deschise pentru ieșire în cadrul buclei și în fiecare dintre datele eșantion sunt scrise.
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