//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