Opomba
V tej temi opisana funkcija, metoda, predmet ali lastnost, je onemogočena, če se izvaja storitev Microsoft Jet Expression Service v načinu peskovnika, ki preprečuje vrednotenje morebitno nevarnih izrazov. Za več informacij o načinu peskovnika poiščite »način peskovnika« v pomoči.
Vrne celo število, ki predstavlja številko naslednje datoteke, ki je na voljo za uporabo z izjavo Open .
Sintaksa
FreeFile[(številka obsega)]
Izbirni argument številka obsega je Variant, ki določa obseg, iz katerega bo vrnjena naslednja prosta številka datoteke. Določite 0 (privzeto) za vrnitev številke datoteke v obsegu od 1 do vključno 255. Določite 1 za vrnitev številke datoteke v obsegu od 256 do 511.
Opombe
Uporabite funkcijo FreeFile, da podate številko datoteke, ki se še ne uporablja.
Primer
Opomba
V spodnjih primerih je prikazana uporaba te funkcije v modulu Visual Basic for Applications (VBA). Če želite več informacij o delu z modulom VBA, izberite Vsebina za razvijalce na spustnem seznamu ob možnosti Iskanje in v iskalno polje vnesite enega ali več izrazov.
V tem primeru se funkcija FreeFile uporablja za vrnitev naslednje razpoložljive številke datoteke. Pet datotek je odprtih za izpis znotraj zanke, in v vsaki je zapisanih nekaj vzorčnih podatkov.
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