🚀 go-pugleaf

On Mon, 23 Jun 2003 17:11:50 +0200, "Enrico B." <eangelo@libero.it> wrote:

>Hi to All!
>Can somebody provide me with a piece of code to be used to retrieve a file
>last modification time? I tried "stat" but on Windows O.S. that function
>only returns the last access time. I also tried GetFileTime but something is
>wrong with it.
>Thanks in advance
>Henry
>
>

TDateTime __fastcall GetLastWriteTime( AnsiString File )
{
    WIN32_FIND_DATA FindFileData;

    HANDLE HFile = FindFirstFile( File.c_str(), &FindFileData );
    if ( HFile == INVALID_HANDLE_VALUE )
        RaiseLastOSError();

    class X {
    public:
        X( HANDLE hFile ) : hFile_( hFile ) {}
        ~X() throw() { FindClose( hFile_ ); }
    private:
        const HANDLE hFile_;
    }
    Finalize( HFile );

    FILETIME LT;

    if ( !FileTimeToLocalFileTime( &FindFileData.ftLastWriteTime, &LT ) )
        RaiseLastOSError();

    SYSTEMTIME ST;

    if ( !FileTimeToSystemTime( &LT, &ST ) )
        RaiseLastOSError();

    return TDateTime( ST.wYear, ST.wMonth, ST.wDay ) +
           TDateTime( ST.wHour, ST.wMinute, ST.wSecond, ST.wMilliseconds );
}