FileSystem.GetAttr(String) Метод

Ссылка

Определение

Пространство имен:: Microsoft.VisualBasic

Сборка:: Microsoft.VisualBasic.Core.dll

Сборка:: Microsoft.VisualBasic.dll

Исходный код:: FileSystem.vb

Исходный код:: FileSystem.vb

Исходный код:: FileSystem.vb

Важно!

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

Возвращает значение 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 может содержать имя каталога или папки и имя диска.

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

FileAttribute

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

Исключения

IOException

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

FileNotFoundException

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

Примеры

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

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

Поделиться через