'*********************************************************
' En este ejemplo se listan los atributos de un archivo
' tal y como aparecen en el cuadro "Propiedades" de un
' archivo al llamarlo desde el Explorador de Windows.
'
' Los atributos de un archivo a través del FSO son de
' lectura y escritura. En el caso de que quisieramos 
' cambiar algún atributo lo haríamos así 
'
' (para hacer el archivo oculto)
'
'   f.Attributes = f.Attributes + vbHidden
'
' (para que deje de ser oculto)
'
'   f.Attributes = f.Attributes - vbHidden
'
' y así de la misma manera para el resto de atributos.
' 
' Fijaos en que no hemos puesto 
'
'   f.Attributes = vbHidden
'
' esto borraría todos los atributos y dejaría sólo uno de
' ellos, ya que la propiedad Attributes es una combinación
' de una serie de valores, es decir, que puede haber más
' de un atributo para un mismo archivo (el archivo puede
' ser de sistema y oculto, por ejemplo).
'
Sub FileAttributes(FileName As String)
Dim fso As Object 'New FileSystemObject
Dim f As Object 'File

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile(FileName)
       
    Debug.Print "Nombre archivo: "; f.Path
    If (f.Attributes And vbReadOnly) Then _
        Debug.Print "- Sólo lectura (lectura o escritura)"
    If (f.Attributes And vbHidden) Then _
        Debug.Print "- Oculto (lectura o escritura)."
    If (f.Attributes And vbSystem) Then _
        Debug.Print "- Sistema (lectura o escritura)."
    If (f.Attributes And vbArchive) Then _
        Debug.Print "- Modificado (lectura o escritura)."
        
    Set f = Nothing
    Set fso = Nothing
    
End Sub
'*********************************************************