Функция Dir

Функция Dir служит для проверки существования каталога или файла, отвечающих заданному образцу. Функция поддерживает использование подстановочных знаков для нескольких символов(*) и одиночного символа(?) для указания нескольких файлов. Функция возвращает первое имя файла, имя которого соответствует аргументу PathName. Для получения остальных файлов, имена которых соответствуют PathName, следует повторно вызвать функцию Dir без аргументов. Последовательные вызовы функции без аргументов возможны до тех пор, пока имеются файлы или папки, соответствующие образцу первого вызова(с аргументами)
Примечание: Рекурсивные вызовы функции Dir запрещены

Функция возвращает данные типа String, структурно представляющего имя файла или папки, которые удовлетворяют указанному шаблону имени файла, набору атрибутов файла или метке тома на диске. Если аргумент PathName не найден, то функция Dir возвращает пустую строку(" ")
Примечание: Если после возврата функцией пустой строки, снова вызвать функцию без аргументов, то возникает ошибка времени исполнения Invalid procedure call or argument

PathName

Необязательный аргумент. Строковое выражение, указывающее имя файла. Также может содержать имя каталога или папки и диска. При использовании имен файлов или папок, содержащих пробелы следует использовать дополнительные кавычки - Dir(""C:\Русский Проект\app.exe"") или Dir(Chr(34) & "C:\Русский Проект\app.exe" & Chr(34))
Примечание: Хотя PathName указан, как необязательный аргумент, он обязателен при первом вызове функции, а также в случаях, если задан аргумент Attributes

Attributes

Необязательный аргумент, содержащий константу или числовое выражение, описывающее атрибуты файла. Если этот аргумент опущен, возвращаются все файлы, имена которых удовлетворяют содержимому аргумента PathName. Допустимые значения Attributes

vbNormal=0

Обычное состояние файла.Используется по умолчанию

vbReadOnly=1

Атрибут только для чтения

vbHidden=2

Скрытый атрибут

vbSystem=4

Системный атрибут

vbVolume=8

Метка тома

vbDirectory=16

Каталог или папка

Примечание: Можно также указывать комбинации атрибутов путем их суммирования
Например, vbHidden+vbDirectory выводит скрытые папки

Dim retval
 ' При наличии выводит WIN.INI
retval=Dir("c:\windows\win.ini") 
Print retval
' Возвращает имя файла с расширением txt
' При наличии нескольких файлов возвращается
' первый найденный файл
retval = Dir("c:\windows\*.txt")
Print retval