Share via

Propriedade Attributes

  • Artigo

Define ou retorna os atributos de arquivos ou pastas. Leitura/gravação ou somente leitura, dependendo do atributo.

Sintaxe

objeto. Atributos [= newattributes ]

A propriedade Attributes tem estas partes:

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

Configurações

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

Constant Valor Descrição
Normal 0 Arquivo normal. Nenhum atributo é definido.
ReadOnly 1 Arquivo somente leitura. O atributo é leitura/gravação.
Oculto 2 Arquivo oculto. O atributo é leitura/gravação.
Sistema 4 Arquivo do sistema. O atributo é leitura/gravação.
Volume 8 Rótulo de volume de unidade de disco. O atributo é somente leitura.
Directory 16 Pasta ou diretório. O atributo é somente leitura.
Arquivar 32 O arquivo foi alterado desde o último backup. O atributo é leitura/gravação.
Alias 1024 Link ou atalho. O atributo é somente leitura.
Comprimido 2048 Arquivo compactado. O atributo é somente leitura.

Comentários

O código a seguir ilustra o uso da propriedade Attributes com um arquivo.

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.