Aqui tienes un ejemplo que recopile de este sitio.
(w3).tek-tips.com/viewthread.cfm?qid=1390120&page=1
Creas una funcion.
//FUNCTION: uf_file_last_mod( as_filename ) -- returns String
//SCRIPT:
String ls_path, ls_file, ls_test
DateTime ldt_ret
OLEObject obj_shell, obj_folder, obj_item
obj_shell = CREATE OLEObject
obj_shell.ConnectToNewObject( 'shell.application' )
ls_path = Left( as_filename, LastPos( as_filename, "" ) )
ls_file = Mid( as_filename, LastPos( as_filename, "" ) + 1 )
IF FileExists( as_filename ) THEN
obj_folder = obj_shell.NameSpace( ls_path )
IF IsValid( obj_folder ) THEN
obj_item = obj_folder.ParseName( ls_file )
IF IsValid( obj_item ) THEN
ls_test = obj_folder.GetDetailsOf( obj_item, 3 )
END IF
END IF
END IF
DESTROY obj_shell
DESTROY obj_folder
DESTROY obj_item
RETURN ls_test
Si quieres que el return sea datetime es cuestion de que lo modifiques.
Y para que hagas una prueba rapida creas un boton en la ventana y escribes esto pero
primero debes de crear el ARCHIVO "c:texto.txt"
String ls_file
ls_file = "c:texto.txt"
MessageBox("Fecha",uf_file_last_mod(ls_file))
En la funcion tiene esta sintaxis "ls_test = obj_folder.GetDetailsOf( obj_item, 3 )" y el numero 3 le corresponde a un tipo de propiedad del archivo, el 3 es la fecha de modificacion del archivo y el 4 es la fecha de la creacion del archivo. En la parte de abajo te pongo la lista disponible.
Cualquier duda no dudes en postearla, espero que te sea de utilidad.
Saludos!
0 = "Filename"
1 = "Size"
2 = "Type"
3 = "Modified date"
4 = "Created date"
5 = "Unknown"
6 = "Attributes"
7 = "???"
8 = "Domene"
9 = "Artist"
10= "Tittle"
11= ""
12= "Genre"
13= ""
14= "Comments"
15= ""
16= "Artist"
17= "Album title"
18= "Year"
19= ""
20= "Genre"
21= "Duration"
22= "Bitrate"
23= "Protected"
24= ""
25= ""
26= ""
27= ""
28= ""
29= ""
30= ""
31= ""
32= "???"
33= "Audio sample rate"
34= "Channels"
