Функция GetAttr

Функция служит для определения атрибутов заданного файла.Функция может работать и с открытыми файлами

Возвращает значение типа Integer, содержащее атрибуты файла, каталога или папки

Pathname

Обязательный параметр-строковое выражение,указывающее имя файла.Pathname может содержать имя каталога или папки и диска,включая сетевые.Он может также задаваться как UNC-имя.Если диск и папка не указана,то система считает,что файл находится в рабочем каталоге на рабочем диске машины.При этом имя файла задается как "C:Test.txt(без обратной косой черты)

Значение, возвращаемое функцией GetAttr, являются суммой значений следующих атрибутов:

Пример

' В данном примере функция GetAttr
' используется для определения атрибутов файла,
' а также каталога или папки
Dim MyAttr
' Предположим, что файл TESTFILE имеет атрибут "скрытый"
MyAttr = GetAttr("TESTFILE") ' возвращает 2

' Возвращает ненулевое значение, если файл TESTFILE ' имеет атрибуты "скрытый" и "только для чтения"
Debug.Print MyAttr And vbHidden 

' Предположим, что файл TESTFILE 
' имеет атрибуты "скрытый" и "только для чтения"
MyAttr = GetAttr("TESTFILE") ' возвращает 3

' Возвращает ненулевое значение, если файл TESTFILE 
' имеет атрибуты "скрытый" и "только для чтения"
Debug.Print MyAttr And (vbHidden + vbReadOnly) 

' Предположим, что MYDIR является каталогом или папкой
MyAttr = GetAttr("MYDIR") ' возвращает 16