'*********************************************************
' En este ejemplo se enumeran las propiedades de un 
' archivo que se le pase como argumento al procedimiento
' (se ha de pasar la ruta completa del archivo, o, si está
' en el directorio activo, sólo hará falta pasarle el 
' nombre).
'
' Objetos utilizados:
'
'   FileSystemObject
'   File
'
Sub FileProperties(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 del archivo : "; f.Name
    Debug.Print "Unidad: "; f.Drive
    Debug.Print "Directorio: "; f.ParentFolder
    Debug.Print "Ruta completa: "; f.Path
    Debug.Print "Tamaño: "; f.Size
    Debug.Print "Creación: "; f.DateCreated
    Debug.Print "Último acceso: "; f.DateLastAccessed
    Debug.Print "Última modificación: "; _
                f.DateLastModified
    Debug.Print "Nombre MS-DOS: "; f.ShortName
    Debug.Print "Ruta MS-DOS: "; f.ShortPath
    Debug.Print "Tipo de archivo: "; f.Type
    
    Set f = Nothing
    Set fso = Nothing
    
End Sub
'*********************************************************