Преглед садржаја
Дир Опис
Враћа прво име датотеке које одговара имену путање и наведеним атрибутима.
Једноставни Дир примери
| 1 | МсгБок Дир ("") |
Ово ће вратити прво име датотеке на тренутној путањи.
Дир Синтакса
У ВБА Едитор -у можете откуцати „Дир (“) да бисте видели синтаксу функције Дир:
Дир функција садржи 2 аргумента:
Име путање: [Опционално] Низ израз који представља директоријум/фасциклу/диск.
Атрибут: [Опционално] Одређује атрибуте датотеке. Ако је изостављено, враћа датотеке које одговарају имену путање, али немају атрибуте.
Тхе Атрибут поставке аргумената су:
| Цонстант | Вредност | Опис |
|---|---|---|
| вбНормал | 0 | (Подразумевано) Одређује датотеке без атрибута. |
| вбРеадОнли | 1 | Наводи датотеке само за читање поред датотека без атрибута. |
| вбХидден | 2 | Одређује скривене датотеке поред датотека без атрибута. |
| вбСистем | 4 | Наводи системске датотеке поред датотека без атрибута. Није доступно на Мацинтосх -у. |
| вбВолуме | 8 | Одређује ознаку волумена; ако је наведен било који други атрибут,вбВолуме се игнорише. Није доступно на Мацинтосх -у. |
| вбДирецтори | 16 | Наводи директоријуме или фасцикле поред датотека без атрибута. |
| вбАлиас | 64 | Наведено име датотеке је псеудоним. Доступно само на Мацинтосх -у. |
ВБА програмирање | Генератор кода ради за вас!
Примери Екцел ВБА Дир функције
Да бисте приказали фасцикле и датотеке на Ц диску, можете користити следећи код.
| 123456789101112131415161718192021222324 | Суб Дир_Екампле ()Дим филеНаме Ас СтрингДим фуллНаме Ас СтрингДим рнг Ас РангеДим и Ас ИнтегерПостави рнг = опсег ("А1")филеНаме = Дир ("Ц: \", вбДирецтори)и = 1УрадитифуллНаме = "Ц: \" & филеНамернг.Оффсет (и, 0) = филеНамернг.Оффсет (и, 1) = ФилеДатеТиме (пуно име)рнг.Оффсет (и, 2) = ФилеЛен (пуно име)рнг.Оффсет (и, 3) = ГетАттр (пуно име)филеНаме = ДирИф филеНаме = "" Затим изађите из Урадии = и + 1ЛоопЕнд Суб |
Резултат ће бити сличан са следећим.
ВБА Дир функција у Аццесс ВБА
ВБА Дир функција ради у Аццесс ВБА на исти начин као у Екцел ВБА.
| 123456789 | Функција ЦреатеДирецтори (стрП као низ) Као логичкоАко је Лен (Дир (стрП, вбДирецтори)) = 0 ТадаМкДир стрПКрај АкоЦреатеДирецтори = ТачноИзлазна функцијазавршетак:ЦреатеДирецтори = ФалсеЗавршна функција |
