Megjegyzés: A témakörben ismertetett függvény, metódus, objektum vagy tulajdonság le van tiltva, ha a Microsoft Jet Expression Service védőfalas üzemmódban fut, mivel ez megakadályozza az esetleg nem biztonságos kifejezések kiszűrését. A védőfalas üzemmódról a súgóban a „védőfalas üzemmód” kifejezésre keresve talál további információt.
Egy egész számot ad vissza, amely az Open utasítás által használható következő fájlszám jelöli.
Szintaxis
FreeFile[(rangenumber)]
A nem kötelező tartományszám argumentum egy Variant, amely meghatározza azt a tartományt, amelyből a következő szabad fájlszámot adja vissza. Adjon meg egy 0-t (alapértelmezett) az 1–255 tartományba tartozó fájlszám visszaadásához, a következőket is beleértve. Adjon meg egy 1-et a 256–511 tartományban lévő fájlszám visszaadásához.
Megjegyzések
A FreeFile használatával olyan fájlszámot adjon meg, amely még nincs használatban.
Példa
Megjegyzés: A következő példák egy Visual Basic for Applications (VBA) modulban mutatják be a függvény használatát. A VBA használatáról a Keresés elem mellett található legördülő listából a fejlesztői forrásokat választva, majd egy vagy több keresőszót megadva kaphat további tájékoztatást.
Ebben a példában a FreeFile függvény a következő elérhető fájlszámot adja vissza. A cikluson belül öt fájl nyílik meg a kimenethez, és mindegyikhez meg lesz írva néhány mintaadat.
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