Забележка: Функцията, методът, обектът или свойството, описани в тази тема, се забраняват, ако услугата microsoft Jet Expression се изпълнява в ограничителен режим, което предотвратява оценяването на потенциално опасни изрази. За повече информация относно ограничителния режим потърсете "ограничителен режим" в помощта.
Връща стойност от типа Integer, представляваща следващата номер на файл налична за използване от командата Open .
Синтаксис
FreeFile[(диапазонно_число)]
Незадължителният аргумент rangenumber е variant, който задава диапазона, от който трябва да се върне следващият номер на свободен файл. Задайте 0 (по подразбиране), за да се върне номер на файл в диапазона от 1 до 255 включително. Задайте 1, за да се върне номер на файл в диапазона 256 – 511.
Забележки
Използвайте FreeFile , за да предоставите номер на файл, който все още не се използва.
Пример
Забележка: Примерите по-долу илюстрират използването на тази функция във Visual Basic for Applications (VBA). За повече информация относно работата с VBA изберете Справочни материали за разработчици в падащия списък до Търсене и въведете един или няколко термина в полето за търсене.
Този пример използва функцията FreeFile , за да върне следващия наличен номер на файл. Пет файла се отварят за извеждане в рамките на цикъла, а някои примерни данни се записват във всеки от тях.
Dim MyIndex, FileNumberFor 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 #FileNumberNext MyIndex
