Recuperar Fecha de Ultima Modificación

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola Jupiter
copiado de la ayuda de VBS

Function MostrarInformacionDeAccesoDeArchivo(especificacionDeArchivo)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(especificacionDeArchivo)
s = UCase(especificacionDeArchivo) & "<BR>"
s = s & "Fecha creación: " & f.DateCreated & "<BR>"
s = s & "Último acceso: " & f.DateLastAccessed & "<BR>"
s = s & "Última modificación: " & f.DateLastModified
MostrarInformacionDeAccesoDeArchivo = s
End Function

Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

http://www.mvp-access.com/foro

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...newsreglas

"Jupiter" escribió en el mensaje
news:18cb01c4c74b$f7659200$
Hola a todos, esperando que ustedes me puedan ayudar...

Necesito una macro que pueda extraer de un archivo, la
ultima modificación y creación del archivo.


Espero que alguien tenga la solución.

Saludos y Gracias.

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Ahora que lo veo, habría que hacer algún retoque para optimizarlo
Function MostrarInformacionDeAccesoDeArchivo(especificacionDeArchivo as
string)
Dim fso as object, _
f as object, _
s as string
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(especificacionDeArchivo)
s = UCase(especificacionDeArchivo) & "<BR>"
s = s & "Fecha creación: " & f.DateCreated & "<BR>"
s = s & "Último acceso: " & f.DateLastAccessed & "<BR>"
s = s & "Última modificación: " & f.DateLastModified
MostrarInformacionDeAccesoDeArchivo = s
set f =nothing
set fso= nothing
End Function



Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

http://www.mvp-access.com/foro

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...newsreglas

"Emilio" <miliuco56 ARROBA Hotmail.com> escribió en el mensaje
news:%

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola Jupiter
copiado de la ayuda de VBS

Function MostrarInformacionDeAccesoDeArchivo(especificacionDeArchivo)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(especificacionDeArchivo)
s = UCase(especificacionDeArchivo) & "<BR>"
s = s & "Fecha creación: " & f.DateCreated & "<BR>"
s = s & "Último acceso: " & f.DateLastAccessed & "<BR>"
s = s & "Última modificación: " & f.DateLastModified
MostrarInformacionDeAccesoDeArchivo = s
End Function

Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

http://www.mvp-access.com/foro

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...newsreglas

"Jupiter" escribió en el mensaje
news:18cb01c4c74b$f7659200$
Hola a todos, esperando que ustedes me puedan ayudar...

Necesito una macro que pueda extraer de un archivo, la
ultima modificación y creación del archivo.


Espero que alguien tenga la solución.

Saludos y Gracias.

Gracias emilio...