Huomautus: Tässä ohjeaiheessa kuvattu funktio, menetelmä, objekti tai ominaisuus ei ole käytössä, jos Microsoft Jet Expression Service toimii eristetyssä tilassa, mikä estää mahdollisesti vahingollisten lausekkeiden arvioimisen. Katso lisätietoja eristetystä tilasta ohjeen ”Eristetty tila” -kohdasta.
Palauttaa kokonaisluvun, joka vastaa seuraavaa tiedoston numero, jonka voi avata Open-lauseella.
Syntaksi
FreeFile[(alueennumero)]
Valinnainen alueennumero-argumentti on muuttuja, joka määrittää alueen, josta seuraava vapaa tiedostonumero palautetaan. Määritä luku 0 (oletus), niin tiedostonumero palautetaan alueelta 1–255. Määritä luku 1, niin tiedostonumero palautetaan alueelta 256–511.
Huomautuksia
FreeFile-funktiota käyttämällä saat tiedostonumeron, joka ei ole vielä käytössä.
Esimerkki
Huomautus: Seuraavissa esimerkeissä kerrotaan, kuinka tätä funktiota käytetään Visual Basic for Applications (VBA) -moduulissa. Jos haluat lisätietoja VBA:n käytöstä, valitse Sovelluskehittäjän opasHaku-kentän viereisestä luettelosta ja anna yksi tai useampi hakuehto hakukenttään.
Tässä esimerkissä FreeFile-funktiolla palautetaan seuraava käytettävissä oleva tiedostonumero. Viisi tiedostoa avataan silmukan sisällä, ja kuhunkin kirjoitetaan mallitietoja.
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
