agarrar la Fecha de un archivo y desplegarla

Mira esta función de José Samper

Local lCfile As String,lOinfo As Scripting.FileSystemObject
Local lCfile As String,lCfpath As String,lCfname As String
Local lCtipo As String,lTfcrea As Datetime,lTfult As Datetime
Local lTfmod As Datetime
lCfile = Getfile()
lOinfo = Createobject("Scripting.FileSystemObject")
lCfile = lOinfo.Getfile(lCfile)
lCfpath = lCfile.Path &&ruta completa del archivo
lCfname = lCfile.Name &&nombre del archivo
lCtipo = lCfile.Type &&&tipo de archivo
lTfcrea = lCfile.DateCreated &&&fecha hora de creación
lTfult = lCfile.DateLastAccessed &&&fecha hora de ultimo acceso
lTfmod = lCfile.DateLastModified &&&fecha de la ultima modificación
RELEASE lOinfo
=MESSAGEBOX('Información de archivo '+lCfpath+;
' Nombre: '+lCfname+;
' Tipo: '+lCtipo+;
' Creación: '+TTOC(lTfcrea)+;
' Modificación: '+TTOC(lTfmod)+;
' Ultimo acceso: '+TTOC(lTfult),64,'Demostración')

Saludos,

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa