Содержание
Dir Описание
Возвращает первое имя файла, которое соответствует указанному пути и атрибутам.
Примеры простых Dir
1 | MsgBox Dir ("") |
Это вернет имя первого файла по текущему пути.
Dir Синтаксис
В редакторе VBA вы можете ввести «Dir (», чтобы увидеть синтаксис функции Dir:
Функция Dir содержит 2 аргумента:
Имя пути: [Необязательно] Строковое выражение, представляющее каталог / папку / диск.
Атрибут: [Необязательно] Задает атрибуты файла. Если не указано, возвращает файлы, соответствующие имени пути, но не имеющие атрибутов.
В Атрибут параметры аргумента:
Постоянный | Ценить | Описание |
---|---|---|
vbNormal | 0 | (По умолчанию) Указывает файлы без атрибутов. |
vbReadOnly | 1 | Задает файлы, доступные только для чтения, в дополнение к файлам без атрибутов. |
vbHidden | 2 | Задает скрытые файлы в дополнение к файлам без атрибутов. |
vbSystem | 4 | Задает системные файлы в дополнение к файлам без атрибутов. Недоступно на Macintosh. |
vbVolume | 8 | Задает метку тома; если указан любой другой атрибут,vbVolume игнорируется. Недоступно на Macintosh. |
vbDirectory | 16 | Задает каталоги или папки в дополнение к файлам без атрибутов. |
vbAlias | 64 | Указанное имя файла является псевдонимом. Доступно только на Macintosh. |
Программирование на VBA | Генератор кода действительно работает для вас!
Примеры функции Excel VBA Dir
Чтобы вывести список папок и файлов на диске C, вы можете использовать следующий код.
123456789101112131415161718192021222324 | Sub Dir_Example ()Dim fileName As StringDim fullName As StringDim rng As RangeDim i как целое числоУстановить rng = Range ("A1")fileName = Dir ("C: \", vbDirectory)я = 1ДелатьfullName = "C: \" & fileNamerng.Offset (i, 0) = имя файлаrng.Offset (i, 1) = FileDateTime (fullName)rng.Offset (i, 2) = FileLen (полное имя)rng.Offset (i, 3) = GetAttr (fullName)fileName = DirЕсли fileName = "" Тогда Выйти Сделатья = я + 1ПетляКонец подписки |
Результат будет аналогичен следующему.
Функция VBA Dir в Access VBA
Функция VBA Dir работает в Access VBA так же, как и в Excel VBA.
123456789 | Функция CreateDirectory (strP как строка) как логическое значениеЕсли Len (Dir (strP, vbDirectory)) = 0, тоMkDir strPКонец, еслиCreateDirectory = TrueФункция выходаокончание:CreateDirectory = FalseКонечная функция |