FileSystem.GetAttr(String) Método

Definição

Devolve um FileAttribute valor que representa os atributos de um ficheiro, diretório ou pasta. A My funcionalidade dá-lhe melhor produtividade e desempenho nas operações de I/O de ficheiros do que FileAttribute. Para obter mais informações, veja 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

Parâmetros

PathName
String

Required. Uma expressão de cadeia que especifica um nome de ficheiro, diretório ou pasta. PathName pode incluir o diretório ou pasta, e o disco.

Devoluções

Uma combinação bit a bit dos valores de enumeração.

Exceções

Pathname é inválido ou contém curingas.

O ficheiro alvo não existe.

Exemplos

Este exemplo utiliza a GetAttr função para determinar os atributos de um ficheiro, diretório ou pasta.

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

Observações

Para determinar quais os atributos definidos, use o And operador para realizar uma comparação bit a bit do valor devolvido pela GetAttr função e do valor do atributo individual do ficheiro que pretende. Se o resultado não for zero, esse atributo é definido para o ficheiro com nome. Por exemplo, o valor de retorno da expressão seguinte And é zero se o Archive atributo não estiver definido:

Result = GetAttr(FName) And vbArchive

Um valor não nulo é devolvido se o Archive atributo estiver definido.

Aplica-se a

Ver também