Описание на GetAttr
Връща цяло число, което представлява атрибутите на файл, папка или директория.
Прости примери за GetAttr
| 12 | MsgBox GetAttr ("C: \")MsgBox GetAttr ("D: \ Test.txt") |
Това ще върне някакво цяло число според настройките на файла/папката/устройството.
Ако името на пътя не съществува, ще възникне грешка по време на изпълнение '53': Файлът не е намерен.
GetAttr синтаксис
В редактора на VBA можете да въведете „GetAttr (“, за да видите синтаксиса за функцията GetAttr:
Функцията GetAttr съдържа аргумент:
Име на път: Низов израз, представляващ файл/папка/устройство.
Връщащи стойности
Стойността, върната отGetAttr е сумата от следните стойности на атрибута:
| Постоянен | Стойност | Описание |
|---|---|---|
| vbНормален | 0 | Нормално. |
| vbReadOnly | 1 | Само за четене. |
| vbСкрит | 2 | Скрит. |
| vbSystem | 4 | Системния файл. Не се предлага на Macintosh. |
| vbDirectory | 16 | Директория или папка. |
| vbArchive | 32 | Файлът се е променил от последното архивиране. Не се предлага на Macintosh. |
| vbAlias | 64 | Посоченото име на файл е псевдоним. Предлага се само на Macintosh. |
Примери за Excel VBA GetAttr функция
| 1 | MsgBox GetAttr ("C: \ Program Files (x86)") |
| 1 | MsgBox GetAttr ("C: \") |
Докато тествате с различни папки/файлове/устройства, той ще върне различни числа като 1, 2, 5, 22 и т.н.
Например, в случай на 22, това означава vbDirectory (16) + vbSystem (4) + vbHidden (2).
За да получите настройките на атрибутите, съответстващи на всеки номер, можете да използвате следната функция.
| 12345678910111213 | Функция GetAttributeSettings (attr As VbFileAttribute) Като StringDim strSettings As StringstrSettings = ""Ако (attr и vbDirectory) = vbDirectory Тогава strSettings = strSettings & "& Directory"Ако (attr и vbVolume) = vbVolume Тогава strSettings = strSettings & "& Volumn"Ако (attr и vbAlias) = vbAlias Тогава strSettings = strSettings & "& Псевдоним"Ако (attr и vbArchive) = vbArchive Тогава strSettings = strSettings & "& Архив"Ако (attr и vbHidden) = vbHidden Тогава strSettings = strSettings & "& Скрит"Ако (attr и vbReadOnly) = vbReadOnly Тогава strSettings = strSettings & "& ReadOnly"Ако (attr и vbSystem) = vbSystem Тогава strSettings = strSettings & "& System"GetAttributeSettings = Mid (strSettings, 2)Крайна функция |
| 1 | MsgBox GetAttributeSettings (22) |
Резултат: „Директория и скрита и система“
