Propriedade Attributes
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.