FileSystem.GetAttr(String) Метод

Определение

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

public:
 static Microsoft::VisualBasic::FileAttribute GetAttr(System::String ^ PathName);
public static Microsoft.VisualBasic.FileAttribute GetAttr (string PathName);
static member GetAttr : string -> Microsoft.VisualBasic.FileAttribute
Public Function GetAttr (PathName As String) As FileAttribute

Параметры

PathName
String

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

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

Побитовое сочетание значений перечисления.

Исключения

Параметр Pathname недопустим или содержит подстановочный знак.

Указанный файл не существует.

Примеры

В этом примере функция используется 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

Комментарии

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

Result = GetAttr(FName) And vbArchive  

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

Применяется к

См. также раздел