Pastaba: Šioje temoje aprašyta funkcija, metodas, objektas arba ypatybė yra išjungta, jei "Microsoft" Jet Expression tarnyba veikia smėlio dėžės režimu, o tai neleidžia įvertinti potencialiai nesaugių reiškinių. Norėdami gauti daugiau informacijos apie smėlio dėžės režimą, žinyne ieškokite "smėlio dėžės režimas".
Pateikia sveikąjį skaičių, reiškiantį paskesnį failo numeris, kurį galite naudoti atidarydami sakinį.
Sintaksė
FreeFile[(rangenumber)]
Pasirinktinis " rangenumber " argumentas yra variantas, nurodantis intervalą, nuo kurio turi būti grąžintas kitas nemokamas failo numeris. Nustatykite 0 (numatytasis parametras), kad grąžintumėte failo numerį 1 – 255, imtinai. Nustatykite 1, kad grąžintumėte failo numerį į "256" – "511".
Pastabos
Naudokite FreeFile , kad būtų galima pateikti dar nenaudnaudojamą failo numerį.
Pavyzdys
Pastaba: Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.
Šiame pavyzdyje naudojama funkcija FreeFile , kad būtų grąžintas kitas galimas failo numeris. Penki failai atidaromi, kad būtų galima išvesti per ciklą, o kai kurie duomenų pavyzdžiai yra parašyti kiekvienam.
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
