Palabras clave: extraer, explorar, datos, información, archivo, fichero, WSH
Autor: Juan M. Afán de Ribera
Extraído de: La web del Búho
Objetivo:
Rutina que explora un archivo e informa de sus características principales.
'*********** 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 *************
