Atributes
Devuelve los atributos de un archivo.
Sintaxis
Atributes
Devolución
Entero: contiene los atributos del archivo codificados.
Más información
Valores de Attributes:
- Read Only: el archivo se determina como de solo lectura:
- Hidden: el archivo o directorio son ocultos.
- System: el archivo o directorio son un archivo o directorio de funcionamiento del sistema.
- 16: directorio. Este elemento es un directorio.
- 32: archivo. El archivo o directorio son un archivo o directorio de almacenamiento.
- 64: dispositivo. Reservado, no se debe utilizar.
- 128: normal. El archivo no tiene atributos.
- 256: archivo temporal. Este archivo se marca como temporal.
- 512: archivo disperso. Este archivo tiene asignado el atributo de dispersión.
- 1024: punto de repetición. El archivo o directorio tienen asociado un punto de repetición.
- 2048: comprimido. El archivo o directorio están comprimidos.
- 4096: fuera de línea. El archivo se ha movido a un punto de almacenamiento fuera de línea y los datos no se encuentran disponibles por el momento.
- 8192: sin índice. Este archivo no se indexará.
- 16384: cifrado. Este archivo está cifrado.
Nota
Si el archivo tiene una combinación de estos atributos, los valores se sumarán. Por ejemplo, para un archivo que también es de solo lectura y oculto se devolvería un valor de 35 (32 por el archivo, 1 por “solo lectura” y 2 por “oculto”).
Ejemplo
Muestra los 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("Su valor de atributo de Calc.exe es : " & att)
textfile.Close
End If
End Function