FileSystem.GetAttr(String) Метод

Определение

Возвращает значение FileAttribute, представляющее атрибуты файла, каталога или папки.Returns a FileAttribute value that represents the attributes of a file, directory, or folder. Функция My обеспечивает более высокие показатели производительности и быстродействия в операциях файлового ввода-вывода в сравнении с FileAttribute.The My feature gives you better productivity and performance in file I/O operations than FileAttribute. Для получения дополнительной информации см. FileSystem.For more information, see 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

Обязательный.Required. Строковое выражение, определяющее имя файла, каталога или папки.A string expression that specifies a file, directory, or folder name. Выражение PathName может содержать имя каталога или папки и имя диска.PathName can include the directory or folder, and the drive.

Возвраты

Побитовое сочетание значений перечисления.A bitwise combination of the enumeration values.

Исключения

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

Указанный файл не существует.Target file does not exist.

Примеры

В этом примере функция GetAttr используется для определения атрибутов файла, каталога или папки.This example uses the GetAttr function to determine the attributes of a file and directory or folder.

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, и значения нужного атрибута файла.To determine which attributes are set, use the And operator to perform a bitwise comparison of the value returned by the GetAttr function and the value of the individual file attribute you want. Если результат не равен нулю, то этот атрибут задается для именованного файла.If the result is not zero, that attribute is set for the named file. Например, возвращаемое значение следующего And выражения равно нулю, если не задан атрибут Archive:For example, the return value of the following And expression is zero if the Archive attribute is not set:

Result = GetAttr(FName) And vbArchive  

Если задан атрибут Archive, возвращается ненулевое значение.A nonzero value is returned if the Archive attribute is set.

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

Дополнительно