'*********** Código ***************
'
' AtributosArchivo
'
' Rutina que muestra los atributos
' de un archivo, tal y como aparecerían
' en la opción "Propiedades" del
' explorador de windows
'
' Autor: Juan M. Afán de Ribera
' Fecha: Junio 2003
'
Sub AtributosArchivo(nomArchivo As String)
Dim fso As Object 'New FileSystemObject
Dim archivo As Object 'File

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set archivo = fso.GetFile(nomArchivo)
    
    'Normal = 0
    If (archivo.Attributes And 0) Then _
        Debug.Print "- Archivo normal. Sin atributos."
    'ReadOnly = 1
    If (archivo.Attributes And 1) Then _
        Debug.Print "- Archivo de sólo lectura. El atributo es de lectura o escritura."
    'Hidden = 2
    If (archivo.Attributes And 2) Then _
        Debug.Print "- Archivo oculto. El atributo es de lectura o escritura."
    'System = 4
    If (archivo.Attributes And 4) Then _
        Debug.Print "- Archivo del sistema. El atributo es de lectura o escritura."
    'Volume = 8
    If (archivo.Attributes And 8) Then _
        Debug.Print "- Etiqueta del volumen de la unidad de disco. El atributo es de sólo lectura."
    'Directory = 16
    If (archivo.Attributes And 16) Then _
        Debug.Print "- Carpeta o directorio. El atributo es de sólo lectura."
    'Archive = 32
    If (archivo.Attributes And 32) Then _
        Debug.Print "- El archivo cambió desde la última copia de seguridad. El atributo es de lectura o escritura."
    'Alias =64
    If (archivo.Attributes And 64) Then _
        Debug.Print "- Vínculo o método abreviado. El atributo es de sólo lectura."
    'Compressed = 128
    If (archivo.Attributes And 128) Then _
        Debug.Print "- Archivo comprimido. El atributo es de sólo lectura."
        
    Set archivo = Nothing
    Set fso = Nothing
    
End Sub
'********* Fin código *************