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 edustaa seuraavaa Open-lausekkeessa käytettävissä olevaa tiedostonumeroa.
Syntaksi
FreeFile[(aluenumero)]
Valinnainen aluenumero-argumentti on variantti, joka määrittää alueen, josta seuraava ilmainen 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