'*********** Código ***************
'
' ExaminarArchivo
'
' Rutina que explora un archivo e
' informa de sus características
' principales.
'
' Autor: Juan M. Afán de Ribera
' Fecha: Junio 2003
'
Sub examinarArchivo(nomArchivo As String)
Dim fso As Object 'New FileSystemObject
Dim archivo As Object 'File

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set archivo = fso.GetFile(nomArchivo)
    
    Debug.Print "Fecha creación: " _
        & archivo.DateCreated
    Debug.Print "Fecha último acceso: " _
        & archivo.DateLastAccessed
    Debug.Print "Fecha última modificación: " _
        & archivo.DateLastModified
    Debug.Print "Letra unidad: " _
        & archivo.Drive
    Debug.Print "Nombre archivo: " _
        & archivo.Name
    Debug.Print "Carpeta: " _
        & archivo.ParentFolder
    Debug.Print "Ruta completa: " _
        & archivo.Path
    Debug.Print "Nombre archivo DOS: " _
        & archivo.ShortName
    Debug.Print "Nombre ruta DOS: " _
        & archivo.ShortPath
    Debug.Print "Tamaño: " _
        & Format(archivo.Size, "##,###")
    Debug.Print "Tipo de archivo: " _
        & archivo.Type
        
    Set archivo = Nothing
    Set fso = Nothing
    
End Sub
'********* Fin código *************

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)