Atributos
Retorna os atributos de um arquivo.
Sintaxe
Atributos
Retorno
Inteiro: contém codificação dos atributos do arquivo.
Mais informações
Valores dos atributos:
- Read Only – Arquivo definido como somente leitura:
- Hidden – Arquivo ou diretório oculto.
- System – O arquivo ou diretório pertence ao sistema operacional.
- 16- Diretório – O item é um diretório.
- 32- Arquivo – O arquivo ou diretório é um arquivo ou diretório de arquivo.
- 64- Dispositivo – Reservado, não usar.
- 128 - Normal – Arquivo sem atributos.
- 256 - Arquivo temporário – Arquivo identificado como temporário.
- 512 - Arquivo esparso – Este arquivo tem o atributo esparso atribuído a ele.
- 1024 - Ponto de nova análise – o arquivo ou diretório tem um ponto de nova análise alocado a ele.
- 2048 - Comprimido – Arquivo ou diretório comprimido.
- 4096 - Offline – O arquivo foi movido para armazenamento offline e não há dados disponíveis no momento.
- 8192 - Sem índice – O arquivo não será indexado.
- 16384 - Criptografado – Arquivo criptografado.
Obs.
Caso haja mais de um atributo, o valor de um se somará ao do outro. Por exemplo, um arquivo que está oculto e é somente leitura retornará o valor de 35 (32 pelo arquivo, 1 por ser somente leitura e 2 por estar oculto).
Exemplo
Exibe os atributos de calc.exe:
Function Main
Dim textfile As Object
Dim att As Integer
Set textfile = File.Connect("127.0.0.1")
If textfile.Open("c:\windows\system32\calc.exe", GENERIC_READ, Open_Existing) Then
att = Textfile.Attributes
echo(“O valor de atributo de Calc.exe : " & att)
textfile.Close
End If
End Function