Примітка.: Функція, метод, об’єкт або властивість, описана в цьому розділі, недоступна, якщо Microsoft Jet Expression Service працює в режимі ізольованого програмного середовища, що запобігає обчисленню потенційно небезпечних виразів. Щоб отримати докладні відомості про режим ізольованого програмного середовища, у вікні довідки шукайте за запитом "режим ізольованого програмного середовища".

Повертає ціле число, яке позначає наступний номер файлу, доступний для використання за допомогою оператора Open .

Синтаксис

Файл[(ранмбербер)]

Необов'язковий аргумент ranmenubber – це варіант, який визначає діапазон, з якого потрібно повернути наступний безкоштовний номер файлу. Укажіть 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 оцінювачів

Чи були ці відомості корисні?

Наскільки ви задоволені якістю перекладу?

Що вплинуло на ваші враження?

Маєте ще один відгук? (Необов'язково)

Дякуємо за ваш відгук!

×