Функция

GetAttr

Синтаксис

GetAttr(pathname)

Возвращает значение типа Integer, содержащее атрибуты файла, каталога или папки: vbNormal=0 обычный, vbReadOnly=1 доступен только для чтения, vbHidden=2 скрытый, vbSystem=4 системный файл, vbDirectory=16 каталог или папка, vbArchive=32 файл был изменен после последней операции резервирования данных.

Параметры

Замечания

Чтобы определить, установлен ли определенный атрибут у файла, вы можете воспользоваться оператором And. Например, для определения установлен ли атрибут архивный для файла, воспользуйтесь таким кодом:
intResult = GetAttr(strFileName) And vbArchive

Если значение intResult не равно 0, то атрибут архивный установлен для данного файла.

Пример использования

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

Дополнительная информация

Категория: Работа с файловой системой

Еще функции: CurDir, Dir, EOF, FileAttr, FileDateTime, FileLen, FreeFile, GetAttr, Input, Loc, LOF, Seek

Логин:

Пароль:

Регистрация, забыли пароль?