'*******************************************************************************
'* FechaModificacion
'* Fecha de ultima modificación del archivo pasado como parámetro
'* Argumentos: strRuta => Ruta del archivo
'* uso: FechaModificacion strRuta
'* ESH 21/01/05 08:42
'*******************************************************************************

Function FechaModificacion(strRuta As String) As Date
Dim fso, _
    Archivo

Set fso = CreateObject("Scripting.FileSystemObject")
Set Archivo = fso.GetFile(strRuta)

FechaModificacion = Archivo.DateLastModified

Set Archivo = Nothing
Set fso = Nothing

End Function ' FechaModificacion


'*******************************************************************************
'* FechaCreacion
'* Fecha de Creación del archivo pasado como parámetro
'* Argumentos: strRuta => Ruta del archivo
'* uso: FechaCreacion strRuta
'* ESH 21/01/05 08:42
'*******************************************************************************

Function FechaCreacion(strRuta As String) As Date
Dim fso, _
    Archivo As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set Archivo = fso.GetFile(strRuta)

FechaCreacion = Archivo.DateCreated

Set Archivo = Nothing
Set fso = Nothing

End Function 			' FechaCreacion


'*******************************************************************************
'* FechaUltimoAcceso
'* Fecha de ultimo acceso al archivo pasado como parámetro
'* Argumentos: strRuta => Ruta del archivo
'* uso: FechaUltimoAcceso strRuta
'* ESH 21/01/05 08:42
'*******************************************************************************

Function FechaUltimoAcceso(strRuta As String) As Date
Dim fso, _
    Archivo

Set fso = CreateObject("Scripting.FileSystemObject")
Set Archivo = fso.GetFile(strRuta)

FechaUltimoAcceso = Archivo.DateLastAccessed

Set Archivo = Nothing
Set fso = Nothing

End Function			' FechaUltimoAcceso