Update Local file based on time modified comparison

[Gintaras]

This is correct.

------

shorter

Function UpdateDb

Code:

Copy      Help

str- NetworkDbFile="\\NetworkLocation\AdminDB.db3"
str- LocalDbFile="$common documents$\AdminDB.db3"

;if(!dir(LocalDbFile));;if local copy does not exist
,;out "Copying AdminDb from network....."
,;cop- NetworkDbFile LocalDbFile; err ErrMsg(1)
,;out "Copying AdminDb.....done."

Dir d1
if d1.dir(NetworkDbFile 0) ;;if exists
,long dtNetworkTimeMod=d1.TimeModified(0 0 0 1)
,
Dir d2
if d2.dir(LocalDbFile 0) ;;if exists
,long dtLocalTimeMod=d2.TimeModified(0 0 0 1)

out dtNetworkTimeMod
out dtLocalTimeMod
;
if dtNetworkTimeMod > dtLocalTimeMod
,cop- NetworkDbFile LocalDbFile; err ErrMsg(1)
,

TimeModified returns time in same format as in DateTime variables.