ГетАттр Десцриптион
Враћа цео број који представља атрибуте датотеке, фасцикле или директоријума.
Једноставни ГетАттр примери
12 | МсгБок ГетАттр ("Ц: \")МсгБок ГетАттр ("Д: \ Тест.ткт") |
Ово ће вратити неки цео број у складу са поставкама датотеке/фасцикле/диска.
Ако назив путање не постоји, појавиће се грешка у току извођења ’53’: Датотека није пронађена.
ГетАттр синтакса
У ВБА Едитор -у можете откуцати „ГетАттр (“ да бисте видели синтаксу за ГетАттр функцију:
Функција ГетАттр садржи аргумент:
Име путање: Низ израз који представља датотеку/фасциклу/диск.
Повратне вредности
Вредност коју је вратиоГетАттр је збир следећих вредности атрибута:
Цонстант | Вредност | Опис |
---|---|---|
вбНормал | 0 | Нормално. |
вбРеадОнли | 1 | Само за читање. |
вбХидден | 2 | Сакривен. |
вбСистем | 4 | Системска датотека. Није доступно на Мацинтосх -у. |
вбДирецтори | 16 | Директоријум или фасцикла. |
вбАрцхиве | 32 | Датотека се променила од последње резервне копије. Није доступно на Мацинтосх -у. |
вбАлиас | 64 | Наведено име датотеке је псеудоним. Доступно само на Мацинтосх -у. |
Примери Екцел ВБА ГетАттр функције
1 | МсгБок ГетАттр ("Ц: \ Програм Филес (к86)") |
1 | МсгБок ГетАттр ("Ц: \") |
Током тестирања са различитим фасциклама/датотекама/дисковима, вратиће различите бројеве попут 1, 2, 5, 22 и тако даље.
На пример, у случају 22, то значи вбДирецтори (16) + вбСистем (4) + вбХидден (2).
Да бисте добили поставке атрибута које одговарају сваком броју, можете користити следећу функцију.
12345678910111213 | Функција ГетАттрибутеСеттингс (аттр Ас ВбФилеАттрибуте) Ас СтрингДим стрСеттингс Ас СтрингстрСеттингс = ""Иф (аттр Анд вбДирецтори) = вбДирецтори Затим стрСеттингс = стрСеттингс & "& Дирецтори"Иф (аттр Анд вбВолуме) = вбВолуме Тада стрСеттингс = стрСеттингс & "& Волумн"Иф (аттр Анд вбАлиас) = вбАлиас Онда стрСеттингс = стрСеттингс & "& Алиас"Иф (аттр Анд вбАрцхиве) = вбАрцхиве Тхен стрСеттингс = стрСеттингс & "& Арцхиве"Иф (аттр Анд вбХидден) = вбХидден Тхен стрСеттингс = стрСеттингс & "& Хидден"Иф (аттр Анд вбРеадОнли) = вбРеадОнли Затим стрСеттингс = стрСеттингс & "& РеадОнли"Иф (аттр Анд вбСистем) = вбСистем Тхен стрСеттингс = стрСеттингс & "& Систем"ГетАттрибутеСеттингс = Средина (стрСеттингс, 2)Завршна функција |
1 | МсгБок ГетАттрибутеСеттингс (22) |
Резултат: „Именик и скривено и систем“