Забележка
Функцията, методът, обектът или свойството, описани в тази тема, са забранени, ако услугата за изрази Microsoft Jet се изпълнява в ограничителен режим, което пречи на изчисляването на потенциално опасни изрази. За повече информация относно ограничителния режим потърсете "ограничителен режим" в помощта.
Връща цяло число, представляващо следващия номер на файл, наличен за използване от командата 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