Dir функциясы

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

Белгілі бір үлгіге не файл атрибутына немесе дисктің том белгісіне сәйкес келетін файлдың, каталогтың немесе қалтаның атауын білдіретін Тізбекті қайтарады.

Синтаксис

Dir[(жол_атауы [, атрибуттар] )]

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

Аргумент

Сипаттама

жол_атауы

Қосымша. Файлдың атауын (каталог немесе қапшық және диск болуы мүмкін) белгілейтін жол өрнегі. Егер жол_атауы табылмаса, онда бос тізбек ("") қайтарылады.

атрибуттар

Қосымша. Сомасы файл атрибуттарын белгілейтін тұрақты мән немесе сандық өрнек. Егер қолданылмаса, онда жол_атауына сәйкес келетін, бірақ атрибуттары жоқ файлдарды қайтарады.


Теңшеулер

Атрибуттар аргументінің теңшеулері мынадай:

Константа

Мән

Сипаттама

vbNormal

0

(Әдепкі) Атрибуттары жоқ файлдарды белгілейді.

vbReadOnly

1

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

vbHidden

2

Атрибуттары жоқ файлдарға қосымша жасырылған файлдарды белгілейді.

VbSystem

4

Атрибуттары жоқ файлдарға қосымша жүйелік файлдарды белгілейді. Бұл Macintosh жүйесінде жоқ.

vbVolume

8

Том белгісін белгілейді; егер басқа атрибут белгіленген болса, онда vbVolume есепке алынбайды. Бұл Macintosh жүйесінде жоқ.

vbDirectory

16

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

vbAlias

64

Белгіленген файлдың атауы бүркеншік ат болады. Бұл тек Macintosh жүйесінде бар.


Ескерту :  Бұл константалар Visual Basic for Applications (VBA) бағдарламасымен белгіленеді және оларды кодыңыздың кез келген жерінде кәдуілгі мәндерінің орнына қолдануға болады.

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

Microsoft Windows жүйесінде бірнеше файлдарды белгілеу үшін Dir бірнешелік таңба (*) мен жалғыз таңба (?) топтық таңбаларына қолдау көрсетеді. Macintosh жүйесінде бұл таңбалар дұрыс файлдың атауы сияқты қарастырылады, бірақ бірнеше файлдарды белгілеу үшін топтық таңбалар ретінде қолданылмайды.

Macintosh топтық таңбаларға қолдау көрсетпейтіндіктен, файлдар тобын анықтайтын файлдың түрін қолданыңыз. Файлдың аттарын қолданудың орнына файлдың түрін белгілеу үшін MacID функциясын қолданыңыз. Мысалы, келесі оператор ағымдағы қапшықтағы бірінші МӘТІН файлдың атауын қайтарады:

Dir("SomePath", MacID("TEXT"))

Қапшықтағы барлық файлдарға қайталау үшін, бос тізбекті белгілеңіз:

Dir("")

Егер Windows жүйесінде MacID функциясын Dir дегенмен бірге қолдансаңыз, қателік туындайды.

Саны 256-дан көп кез келген атрибуттарMacID мәні болып есептеледі.

Dir функциясын бірінше рет шақырған кезіңізде, жол_атауын белгілеуіңіз қажет. Егер файл атрибуттарын да белгілесеңіз, жол_атауы қосылу керек.

Dir жол_атауы на сәйкес келетін бірінші файлдың атауын қайтарады. Жол_атауына сәйкес келетін қосымша файлдың аттарын алу үшін, қайтадан Dir функциясын аргументтерісіз шақырыңыз. Басқа сәйкес келетін файлдың аттары табылмаса, Dir функциясы бос тізбекті ("") қайтарады. Бос тізбек қайтарылғаннан кейін, келешек шақыруларда жол_атауын белгілеуіңіз керек, әйтпесе қателік туындайды. Ағымдағы жол_атауына сәйкес келетін файл аттарының барлығын алмай жаңа жол_атауына өзгертуіңізге болады. Алайда, Dir функциясын рекурсивті шақыра алмайсыз. Dir функциясын vbDirectory атрибутымен шақыру әрекеті ішкі каталогтарды үздіксіз қайтарып тұрмайды.

Кеңес     Файлдың аттары белгілі бір тәртіппен алынатындықтан, қайтарылған файлдардың аттарын жиынтыққа сақтап, сұрыптағыңыз келуі мүмкін.

Мысал

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

Бұл мысалда, тексеру мақсатында, егер белгілі бір файлдар мен каталогтар бар болса, Dir функциясы қолданылған. Macintosh жүйесінде “HD:” деген әдепкі дисктің атауы болады. Жол атауының бөлшектері кері қиғаш сызықтың орнына қос үтірмен ажыратылады. Және де, Windows топтық таңбалары Macintosh жүйесінде дұрыс файл-аттары ретінде қарастырылады. Алайда, файл топтарын белгілеу үшін, MacID функциясын қолдануыңызға болады.

Dim MyFile, MyPath, MyName
' Returns "WIN.INI" (on Microsoft Windows) if it exists.
MyFile = Dir("C:\WINDOWS\WIN.INI")
' Returns filename with specified extension. If more than one *.ini
' file exists, the first file found is returned.
MyFile = Dir("C:\WINDOWS\*.INI")
' Call Dir again without arguments to return the next *.INI file in the
' same directory.
MyFile = Dir
' Return first *.TXT file with a set hidden attribute.
MyFile = Dir("*.TXT", vbHidden)
' Display the names in C:\ that represent directories.
MyPath = "c:\" ' Set the path.
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
Do While MyName <> "" ' Start the loop.
' Ignore the current directory and the encompassing directory.
If MyName <> "." And MyName <> ".." Then
' Use bitwise comparison to make sure MyName is a directory.
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' Display entry only if it
End If ' it represents a directory.
End If
MyName = Dir ' Get next entry.
Loop
Дағдыларды жетілдіру
Оқыту курсымен танысыңыз
Жаңа мүмкіндіктерге бірінші болып қол жеткізу
Office Insider бағдарламасына қосылу

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

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

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

×