Funkcija FreeFile

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 naslednjo številko datoteke, ki je na voljo za uporabo v izjavi 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, 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
Razširite svoja znanja
Oglejte si izobraževanje
Prvi dobite nove funkcije
Pridružite se programu Office Insider

Vam je bila informacija v pomoč?

Zahvaljujemo se vam za povratne informacije.

Zahvaljujemo se vam za povratne informacije. Videti je, da bi vam prišla prav pomoč enega od naših Officeovih agentov za podporo.

×