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 ненулевое значение.