Забележка: Функцията, методът, обекта или свойството, описани в тази тема, е забранена, ако услугата Microsoft Jet Expression се изпълнява в ограничителен режим, което не позволява оценка на потенциално опасни изрази. За повече информация относно режима на таксуване, потърсете "режим на таксуване" в "Помощ".

Връща цяло число, представляващо следващата номер на файл, налична за използване от командата Open .

Синтаксис

FreeFile[(rangenumber)]

Аргументът незадължителен rangenumber е вариант, който указва диапазона, от който трябва да се върне следващият свободен номер на файл. Задайте 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

Нуждаете се от още помощ?

Разширете уменията си
Преглед на обучението
Получавайте първи новите функции
Присъединете се към Microsoft приобщени

Беше ли полезна тази информация?

Доколко сте доволни от качеството на превода?
Какво е повлияло на вашия потребителски опит?

Благодарим ви за обратната връзка!

×