FileAttr функциясы

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

Ашу операторын қолдану арқылы ашылған файлдарға файл режимін білдіретін Ұзын деректер түрі нәтижесін қайтарады.

Синтаксис

FileAttr(файл_нөмірі, қайтару_түрі)

FileAttr функциясының синтаксисы келесі аргументді қолданады:

Аргумент

Сипаттама

файл_нөмірі

Қажет етіледі. бүтін сан деректер түрі. Кез келген дұрыс файл нөмірі.

қайтару_түрі

Қажет етіледі. Бүтін сан. Қайтарылатын мәлімет түрін көрсететін сан. Файл режимін көрсететін мәнді қайтану үшін, 1 санын белгілеңіз. 16-бит жүйелерінде операциялық жүйесіндегі файлдың логикалық нөмірін шығарып алу үшін, 2 санын белгілеңіз. 2 қайтару_түріне 32-бит жүйелерінде қолдау көрсетілмейді және ол қателік тудырады.

Қайтарылатын мәндер

Қайтару_түрі аргументі 1 болған кезде, келесі қайтару мәндері файлға қатынау режимін көрсетеді:

Режим

Мән

Енгізу

1

Шығыс

2

Кездейсоқ

4

Жалғау

8

Бинарлық

32

Мысал

Ескерту : Төмендегі үлгілер осы жетені Бағдарламаларға арналған Visual Basic (VBA) модулінде пайдаланылуын көрсетеді. VBA модулімен жұмыс істеу туралы көбірек ақпарат алу үшін, жайылмалы шаршыдағы Іздеу түймешігінің қасындағы Жасақтаушы сілтемелері түймешігін нұқып, іздеу жолағына бір немесе бірнеше шартты ендіріңіз.

Бұл мысал FileAttr функциясын ашық тұрған файлдың файл режимін және файлдың логикалық нөмірін қайтару үшін қолданады. Файлдық логикалық нөмірі тек 16-бит жүйелерінде қайтарылады; 32-бит жүйелерінде, 2 санын екінші аргументі ретінде беру қателік туындатады.

Dim FileNum, Mode, Handle
FileNum = 1 ' Assign file number.
Open "TESTFILE" For Append As FileNum ' Open file.
Mode = FileAttr(FileNum, 1) ' Returns 8 (Append file mode).
Handle = FileAttr(FileNum, 2) ' Returns file handle.
Close FileNum ' Close file.
Дағдыларды жетілдіру
Оқыту курсымен танысыңыз
Жаңа мүмкіндіктерге бірінші болып қол жеткізу
Office Insider бағдарламасына қосылу

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

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

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

×