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 naslednje število številka datoteke na voljo za uporabo z izjavo Open .
Sintaksa
FreeFile[(številka obsega)]
Izbirni argument številka obsega je Variant, ki določa obseg, iz katerega naj 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, FileNumberFor 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 #FileNumberNext MyIndex
