Code: Select all
FileName.s = "C:\test.txt"
DeleteFile(FileName)
If OpenFile(0, FileName)
WriteString(0, "test")
FlushFileBuffers(0)
Debug "Lof() = "+Str(Lof(0));<--- works
Debug "GetFileSize_() = "+Str(GetFileSize_(FileID(0), 0));<--- works
Debug "FileSize() = "+Str(FileSize(FileName));<--- returns 0
CloseFile(0)
EndIf
tested on PB4.02 WinXP x32 & Vista x64.
c ya,
nco2k