FUNCTION SetTimeStamp LPARA tcFileName, ttNewTimeStamp LOCAL loRegistry SET PROC TO clsheap ADDI SET LIBRARY TO "foxtools.fll" ADDI oRegistry = CREATEOBJECT("Registry") lnTimeZoneOffsetMinutes = DWORDToNum(oRegistry.GetStringValue(oRegistry.hkey_Local_Machine, ; "SYSTEM\CurrentControlSet\Control\TimeZoneInformation", "ActiveTimeBias", "")) lnOffsetSeconds = lnTimeZoneOffsetMinutes * 60 ttNewTimeStamp = ttNewTimeStamp + lnOffsetSeconds RELEASE oRegistry IF FILE(tcFileName) =FoxTouch(tcFileName, YEAR(ttNewTimeStamp), MONTH(ttNewTimeStamp), DAY(ttNewTimeStamp), ; HOUR(ttNewTimeStamp), MINUTE(ttNewTimeStamp), SEC(ttNewTimeStamp)) RETURN .T. ELSE RETURN .F. ENDIF ENDFUNCThis function uses my registry class to get the TimeZone offset from the registry, and Ed Rauh's CLSHeap to translate the DWORD offset value to a Visual FoxPro numeric.