Функция Dir

Важно : Тази статия е преведена машинно – вижте отказа от отговорност. Английската версия на тази статия за справка можете да намерите тук .

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

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

Синтаксис

Dir [()път [атрибути] )]

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

Аргумент

Описание

име на път

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

атрибути

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


Настройки

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

Константа

Value

Описание

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 функция. Набиране на Dir с атрибут, vbDirectory не непрекъснато връща поддиректории.

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

Пример

Забележка : Примерите по-долу илюстрират използването на тази функция във Visual Basic for Applications (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

Забележка : Отказ от отговорност за машинен превод: Тази статия е преведена от компютърна система без човешка намеса. Microsoft предлага тези машинни преводи, за да помогне на потребителите, които не говорят английски, да се възползват от съдържанието за продукти, услуги и технологии на Microsoft. Тъй като статията е преведена машинно, е възможно да съдържа грешки в речника, синтаксиса и граматиката.

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

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

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

Благодарим ви за вашата обратна връзка. Изглежда, че ще бъде полезно да ви свържем с един от нашите агенти по поддръжката на Office.

×