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