FreeFile функциясы

Note: Егер Microsoft Jet Expression қауіптілігі ықтимал өрнектің есептелуіне жол бермейтін құмсалғыш режимінде іске қосылғанда, осы бөлімдегі функция, әдіс, нысан немесе сипат доғарылады. Құмсалғыш режимі туралы толық ақпарат алу үшін Анықтамадағы "құмсалғыш режимін" іздеңіз.

Ашу амалдағышының қолдануына берілген келесі file numberн білдіретін Integer data typeды қайтарады.

Синтаксис

FreeFile[(диапазон_нөмірі)]

Қосымша диапазон_нөмірі аргументі келесі бос файл нөмірі қайтарылатын диапазонды белгілейтін Variant data type болады. 1-255 диапазонындағы файл нөмірін қайтару үшін, 0 (әдепкі мән) санын белгілеңіз. 256-511 диапазонындағы файл нөмірін қайтару үшін, 1 санын белгілеңіз.

Түсініктемелер

Қолданыста жоқ файл нөмірін қамтамасыз ету үшін, FreeFile функциясын қолданыңыз.

Мысал

Note: Төмендегі үлгілер осы жетені Бағдарламаларға арналған Visual Basic (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
Дағдыларды жетілдіру
Оқыту курсымен танысыңыз
Жаңа мүмкіндіктерге бірінші болып қол жеткізу
Office Insider бағдарламасына қосылу

Осы ақпарат пайдалы болды ма?

Пікіріңіз үшін рақмет!

Пікіріңізге рақмет! Сізді Office қолдау көрсету қызметіндегі агенттердің бірімен байланыстырған жөн болуы мүмкін.

×