Функция GetAttr

Статья
11/05/2008

Обновлен: Ноябрь 2007

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

Свойство My предоставляет большую производительность и быстродействие в операциях файлового ввода-вывода, чем FileAttribute. Дополнительные сведения смотрите в разделе Объект My.Computer.FileSystem.

Public Function GetAttr(ByVal PathName As String) As FileAttribute

Параметры

PathName
Необходимо. Выражение типа String, указывающее имя файла, каталога или папки. PathName может включать каталог или папку и диск.

Возвращаемое значение

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

Значение	Константа	Описание
Normal	vbNormal	Обычный.
ReadOnly	vbReadOnly	Только для чтения.
Hidden	vbHidden	Скрытый.
System	vbSystem	Системный файл.
Directory	vbDirectory	Каталог или папка.
Archive	vbArchive	Файл, измененный после создания последней резервной копии.
Alias	vbAlias	Файл, у которого есть другое имя.

Примечание.
Эти перечисления определены в языке Visual Basic. Эти имена можно использовать в любом месте кода вместо самих значений.

Исключения

Тип исключения	Номер ошибки	Условие
IOException	52	Pathname неверный или содержит специальные символы.
FileNotFoundException	53	Указанный файл не существует.

См. столбец "Номер ошибки", если выполняется обновление приложений Visual Basic 6.0, в которых используется неструктурированная обработка ошибок. (Можно сравнить номер ошибки с Свойство Number (объект Err).) Однако по возможности следует изменить такую систему управления ошибками на Обзор структурной обработки исключений в Visual Basic.

Заметки

Чтобы определить, какие атрибуты установлены, используйте оператор And для выполнения побитового сравнения значения, возвращенного функцией GetAttr, и значения отдельного нужного атрибута файла. Если результат отличается от нуля, то этот атрибут установлен для указанного файла. Например, если атрибут Archive не установлен, возвращаемое значение выражения And равно нулю:

Result = GetAttr(FName) And vbArchive

Если атрибут Archive установлен, возвращается ненулевое значение.

Пример

В этом примере функция GetAttr используется для определения атрибутов файла, каталога или папки.

Dim MyAttr As FileAttribute
' Assume file TESTFILE is normal and readonly.
MyAttr = GetAttr("C:\TESTFILE.txt")   ' Returns vbNormal.

' Test for normal.
If (MyAttr And FileAttribute.Normal) = FileAttribute.Normal Then
   MsgBox("This file is normal.")
End If

' Test for normal and readonly.
Dim normalReadonly As FileAttribute
normalReadonly = FileAttribute.Normal Or FileAttribute.ReadOnly
If (MyAttr And normalReadonly) = normalReadonly Then
   MsgBox("This file is normal and readonly.")
End If

' Assume MYDIR is a directory or folder.
MyAttr = GetAttr("C:\MYDIR")
If (MyAttr And FileAttribute.Directory) = FileAttribute.Directory Then
   MsgBox("MYDIR is a directory")
End If