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

Връща стойност от тип String , представляваща името на файл, указател или папка, която съответства на зададена шарка или атрибут на файл, или върху етикета за обем на диск.

Синтаксис

Dir[(име на _ на _ _ _ на _ _ _атрибут] )]

Синтаксисът на функцията dir има следните аргументи:

Аргумент

Описание

pathname

Незадължително. Текстов израз, който указва име на файл – може да включва директорията или папката и устройството. Низът с нулева дължина ("") се връща, ако име на _ _ _ не е намерено.

атрибути

Незадължително. Константа или числов израз, чиято сума указва атрибутите на файла. Ако е пропуснато, връща файловете, които съответстват на пътя, но нямат атрибути.


Настройки

Атрибутите аргумент настройки са:

Константа

Стойност

Описание

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("")

Ако използвате функцията MacID с dir в Windows, възниква грешка.

Всяка стойност, която е по-голяма от 256, се смята за стойност наMacID .

Трябва да укажете име на _ _ път при първото извикване на функцията dir или възниква грешка. Ако също така указвате атрибутите на файла, трябва да се включи име на файл.

Dir връща първото име на файл, което съответства на името на _път. За да получите каквито и да е допълнителни имена на файлове, които съответстват на имена път, обадете се на реж . Когато няма повече имена на файлове, dir Връща низ с нулева дължина (""). След връщането на низ с нулева дължина трябва да укажете име на път при следващи обаждания или възникнала грешка. Можете да промените името на нов име на файл, без да извличате всички имена на файлове, които съответстват на текущия му име. Все пак не можете да се обадите на функцията dir рекурсивно. Извикването на dir с атрибут vbDirectory не връща непрекъснато поддиректори.

Съвет     Тъй като имената на файловете се извличат без определен ред, може да поискате да съхранявате върнати имена на файлове в масив и след това да сортирате масива.

Пример

Забележка: Примерите по-долу илюстрират използването на тази функция във Visual Basic for Applications (VBA). За повече информация относно работата с VBA изберете Справочни материали за разработчици в падащия списък до Търсене и въведете един или няколко термина в полето за търсене.

Този пример използва функцията dir , за да провери дали съществуват определени файлове и указатели. На Macintosh "HD:" е името на устройството по подразбиране и частите на пътя са разделени от двоеточия вместо обратно наклонени черти. Освен това символите за заместващи прозорци се третират като валидни знаци за имена на файлове в 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

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

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

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

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

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

×