Compartilhar via

Propriedade Attributes

Define ou devolve os atributos de ficheiros ou pastas. Só de leitura/escrita ou só de leitura, consoante o atributo .

Sintaxe

objeto. Atributos [= newattributes ]

A propriedade Atributos tem as seguintes partes:

Sair Descrição
objeto Obrigatório. Sempre o nome de um objeto Ficheiro ou Pasta .
newattributes Opcional. Se for fornecido, newattributes é o novo valor para os atributos do objeto especificado.

Configurações

O argumento newattributes pode ter qualquer um dos seguintes valores ou qualquer combinação lógica dos seguintes valores.

Constant Valor Descrição
Normal 0 Ficheiro normal. Não existem atributos definidos.
ReadOnly 1 Ficheiro só de leitura. O atributo é de leitura/escrita.
Oculto 2 Ficheiro oculto. O atributo é de leitura/escrita.
Sistema 4 Ficheiro de sistema. O atributo é de leitura/escrita.
Volume 8 Etiqueta de volume da unidade de disco. O atributo é só de leitura.
Directory 16 Pasta ou diretório. O atributo é só de leitura.
Arquivar 32 O ficheiro foi alterado desde a última cópia de segurança. O atributo é de leitura/escrita.
Alias 1024 Ligação ou atalho. O atributo é só de leitura.
Comprimido 2048 Ficheiro comprimido. O atributo é só de leitura.

Comentários

O código seguinte ilustra a utilização da propriedade Atributos com um ficheiro.

Sub SetClearArchiveBit(filespec)
    Dim fs, f, r
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(fs.GetFileName(filespec))
    If f.attributes and 32 Then
        r = MsgBox("The Archive bit is set, do you want to clear it?", vbYesNo, "Set/Clear Archive Bit")
        If r = vbYes Then 
            f.attributes = f.attributes - 32
            MsgBox "Archive bit is cleared."
        Else
            MsgBox "Archive bit remains set."
        End If
    Else
        r = MsgBox("The Archive bit is not set. Do you want to set it?", vbYesNo, "Set/Clear Archive Bit")
        If r = vbYes Then 
f.attributes = f.attributes + 32
            MsgBox "Archive bit is set."
        Else
            MsgBox "Archive bit remains clear."
        End If
    End If
End Sub

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.

  • Last updated on