'*********** 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 *************
(
geocities.com/es/ensolva/Descargas) (
geocities.com/es/ensolva) (
geocities.com/es)