Chage Date/Time in a File

[Rafael Clemente]

Is there a function which permits to retrieve/exchange Date and Time of last modif. in any file. Somethig similar to the FWH SetFDate()/GetFTime() functions?
Thanks
Rafael

[Antonio Linares]

Rafael,

You can use Directory() to retrieve the date and time. Here you have a working sample:

Code: Select all  Expand view  RUN

#include "FWCE.ch"

function Main()

   local oWnd
   
   DEFINE WINDOW oWnd TITLE "DateTime"
   
   @ 9, 2 BUTTON "Date-Time" ;
      SIZE 210, 30 ACTION ShowDateTime()

   ACTIVATE WINDOW oWnd
   
return nil   

function ShowDateTime()

   local aInfo := Directory( CurDir() + "\datetime.exe" )

   if Len( aInfo ) > 0
      MsgInfo( DToC( aInfo[ 1 ][ 3 ] ) )
      MsgInfo( aInfo[ 1 ][ 4 ] )
   endif     
   
return nil


[Antonio Linares]

To change the date and time we need to use Windows API SetFileTime().

We are going to build a sample of its use.

[Rafael Clemente]

Antonio.
Thanks. I'll apreciate that. I need a certain control over the dates and times of the DBFs so that I can control their syncronization through ActiveSync
Regards
Rafael