Got it working but have new issues.
The time is never the time of the file as indicated at the command line.
And sometimes the date is correct and some times it isn't.
And sometimes the date doesn't appear and sometime does.
Using testfdat.prg modified.
Here is my code
- Code: Select all Expand view
#include "fileio.ch"
function Main()
local hFile
local aInfo
local cFile := "gl2.prg"
hFile := FOpen(cFile)
aInfo = GetFTime( hFile )
MsgInfo( "Time: " + aInfo[ 1 ] )
MsgInfo( "Date: " + DToC( aInfo[ 2 ] ) )
FClose( hFile )
return nil
Using FWH 0908 (sep 2008)
Need a fix.