Pastaba: Šioje temoje aprašyta funkcija, metodas, objektas arba ypatybė yra išjungta, jei "Microsoft Jet Expression Service" veikia smėlio dėžės režimu, kuris neleidžia įvertinti galimai nesaugių reiškinių. Jei reikia daugiau informacijos apie smėlio dėžės režimą, žinyne ieškokite "smėlio dėžės režimas".
Pateikia sveikasis skaičius, nurodantis kitą failo numeris, kurį galima naudoti sakinyje Atidaryti .
Sintaksė
FreeFile[(diapazono numeris)]
Pasirinktinis diapazono numeravimo argumentas yra variantas, nurodantis diapazoną, iš kurio turi būti pateiktas kitas nemokamas failo numeris. Nurodykite 0 (numatytąjį), kad būtų pateiktas failo numeris diapazone nuo 1 iki 255 imtinai. Nurodykite 1, kad būtų pateiktas failo numeris diapazone nuo 256 iki 511.
Pastabos
Naudokite FreeFile norėdami pateikti failo numerį, kuris dar nenaudojamas.
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ų pateiktas kitas galimas failo numeris. Cikle išvesčiai atidaromi penki failai, o kai kurie duomenų pavyzdžiai įrašomi į kiekvieną.
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
