Функция Dir
Обновлен: Ноябрь 2007
Возвращает строку, представляющую имя файла, каталога или папки, соответствующее указанному шаблону, атрибуту файла или метке тома диска.
Объект My.Computer.FileSystem обеспечивает большую производительность и быстродействие в операциях файлового ввода-вывода, чем функция Dir. Дополнительные сведения см. в разделе Метод My.Computer.FileSystem.GetDirectoryInfo.
Public Overloads Function Dir() As String
' -or-
Public Overloads Function Dir( _
ByVal PathName As String, _
Optional ByVal Attributes As FileAttribute = FileAttribute.Normal _
) As String
Параметры
PathName
Необязательно. Выражение String, в котором указывается имя файла, каталога или папки, или метка тома диска. Если PathName не найден, то возвращается строка нулевой длины ("").Attributes
Необязательно. Перечисление или числовое выражение, значение которого задает атрибуты файла. Если параметр опущен, функция Dir возвращает файлы, соответствующие PathName, но не имеющие атрибутов.
Параметры
Используются следующие значения перечисления аргументов Attributes:
Значение |
Константа |
Описание |
---|---|---|
Normal |
vbnormal |
Значение по умолчанию. Указываются файлы без атрибутов. |
ReadOnly |
vbReadOnly |
Указываются файлы только для чтения в дополнение к файлам без атрибутов. |
Hidden |
vbHidden |
Указываются скрытые файлы в дополнение к файлам без атрибутов. |
System |
vbSystem |
Указываются системные файлы в дополнение к файлам без атрибутов. |
Volume |
vbVolume |
Указывается метка диска. Если указан какой-либо другой атрибут, vbVolume игнорируется. |
Directory |
vbDirectory |
Указываются каталоги или папки в дополнение к файлам без атрибутов. |
Archive |
vbArchive |
Файл, измененный после создания последней резервной копии. |
Alias |
vbAlias |
Файл, у которого есть другое имя. |
Примечание. |
---|
Эти перечисления указаны в языке Visual Basic и могут быть использованы в любом месте кода вместо реальных значений. |
Заметки
Функция Dir поддерживает использование многозначного (*) и однозначного (?) знака подстановки, чтобы указать несколько файлов.
VbVolume возвращает метку тома диска вместо имени файла.
При первом вызове функции Dir необходимо указать PathName. Для извлечения следующего элемента можно последовательно вызвать функцию Dir без параметров.
Примечание о безопасности. |
---|
Для правильного выполнения функции Dir необходимо присвоить коду выполнения флаги Read и PathDiscovery задачи FileIOPermission. Дополнительные сведения см. в разделах FileIOPermission, SecurityException и Разрешения для доступа к коду. |
Пример
В данном примере функция Dir используется для проверки существования определенных файлов и каталогов.
Dim MyFile, MyPath, MyName As String
' Returns "WIN.INI" 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, including files 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.
' Use bitwise comparison to make sure MyName is a directory.
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
' Display entry only if it's a directory.
MsgBox(MyName)
End If
MyName = Dir() ' Get next entry.
Loop
Примечания для разработчиков приложений для интеллектуальных устройств
Данная функция не поддерживается.
Требования
Пространство имен:Microsoft.VisualBasic
**Модуль:**FileSystem
**Сборка:**Visual Basic (библиотека времени выполнения, в Microsoft.VisualBasic.dll)