Зміст
Опис директора
Повертає перше ім’я файлу, яке відповідає імені шляху та вказаним атрибутам.
Прості приклади Dir
| 1 | MsgBox Dir ("") |
Це поверне ім'я першого файлу на поточному шляху.
Синтаксис Dir
У редакторі VBA ви можете ввести “Dir (”), щоб побачити синтаксис функції Dir:
Функція Dir містить 2 аргументи:
Ім'я шляху: [Необов’язково] Рядовий вираз, що представляє каталог/папку/диск.
Атрибут: [Необов’язково] Вказує атрибути файлу. Якщо пропущено, повертає файли, які відповідають назві шляху, але не мають атрибутів.
The Атрибут Параметри аргументів такі:
| Постійна | Цінність | Опис |
|---|---|---|
| vbНормальний | 0 | (За замовчуванням) Визначає файли без атрибутів. |
| vbReadOnly | 1 | Вказує файли лише для читання на додаток до файлів без атрибутів. |
| vbHidden | 2 | Вказує приховані файли на додаток до файлів без атрибутів. |
| vbSystem | 4 | Вказує системні файли на додаток до файлів без атрибутів. Недоступно на Macintosh. |
| vbVolume | 8 | Вказує мітку тому; якщо вказано будь -який інший атрибут,vbVolume ігнорується. Недоступно на Macintosh. |
| vbDirectory | 16 | Вказує каталоги або папки на додаток до файлів без атрибутів. |
| vbAlias | 64 | Вказана назва файлу є псевдонімом. Доступно лише на Macintosh. |
Програмування VBA | Генератор коду працює для вас!
Приклади функції Dir VBA Excel Excel
Щоб перелічити папки та файли на диску C, можна скористатися наведеним нижче кодом.
| 123456789101112131415161718192021222324 | Sub Dir_Example ()Dim fileName As StringЗатемнити повне ім'я як рядокЗменшити діапазон як діапазонDim i як ціле числоВстановити rng = Діапазон ("A1")fileName = Dir ("C: \", vbDirectory)i = 1ЗробитиfullName = "C: \" & ім'я файлуrng.Offset (i, 0) = ім'я файлуrng.Offset (i, 1) = FileDateTime (повне ім'я)rng.Offset (i, 2) = FileLen (повне ім'я)rng.Offset (i, 3) = GetAttr (fullName)ім'я файлу = РежЯкщо fileName = "" Тоді вийдітьi = i + 1ПетляEnd Sub |
Результат буде схожим із наступним.
Функція Dir VBA у Access VBA
Функція VBA Dir працює в Access VBA так само, як і в Excel VBA.
| 123456789 | Функція CreateDirectory (strP As String) Як логічне значенняЯкщо Len (Dir (strP, vbDirectory)) = 0 ТодіMkDir strPЗакінчити ЯкщоCreateDirectory = ПравдаФункція виходузакінчення:CreateDirectory = FalseФункція завершення |
