Date of the last file change

[Natter]

Hi,

How to find out the date of the last file change ?

[karinha]

Code: Select all  Expand view  RUN

   cFILE := "C:\INST_NFE\MyProgam.exe"

   aDIR  := DIRECTORY( cFILE )

   dEXE  := aDIR[1] [3]

   dDateVersion := DTOC( dEXE )
 

[Natter]

Thanks.
And how do I find out the date when the file was created and the date when the file was last opened ?

[karinha]

If I understand correctly ... Create a database and save all the information on system usage in this database. Sorry if that's not it.

Regards.

[nageswaragunupudi]

Code: Select all  Expand view  RUN

   local oFs, oFile, cFile

   oFs   := CreateObject( "Scripting.FileSystemObject" )
   cFile := "c:\fwh\samples\maria01.prg"
   if oFs:FileExists( cFile )
      oFile := oFs:GetFile( cFile )
      ? oFile:DateCreated, oFile:DateLastModified, oFile:DateLastAccessed
   else
      ? cFile + " does not exist"
   endif
 

https://docs.microsoft.com/en-us/office ... ect-object

[Natter]

Thanks, Mr.Rao. This is what you need !

[MaxP]

Another solution

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()
        LOCAL   dDate
       
        dDate := FCREATEDATE( "C:\TEST.PDF" )
               
        MsgStop( dDate )
RETURN NIL


#pragma BEGINDUMP

#include <windows.h>
#include "hbapi.h"

HB_FUNC( FCREATEDATE )

{
        HANDLE          hFile  ;
        WIN32_FIND_DATA wfd ;
        SYSTEMTIME      st ;

        hFile = FindFirstFile( hb_parc( 1 ), &wfd ) ;
        if ( hFile != INVALID_HANDLE_VALUE )  {
                FileTimeToSystemTime( &wfd.ftCreationTime, &st ) ;
       
                FindClose( hFile ) ;
        }  
        else  {
                st.wYear = 0 ;
                st.wMonth = 0 ;
                st.wDay = 0 ;
        }
       
        hb_retd( st.wYear, st.wMonth, st.wDay ) ;
}

#pragma ENDDUMP

regards
Massimo

[MarcoBoschi]

Please,
the definition of oFile:DateLastAccessed?

How can I try this?
How do I open a file to find that modified parameter?

Many thanks
Marco

[MaxP]

Hi Marco,

I send you an example with LastAccess and LastWrite

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()
        LOCAL   dDate
       
        dDate := FCREATEDATE( "C:\TEST.PDF" )        
               
        MsgStop( dDate )
       
        dDate := FLACCESSDATE( "C:\TEST.PDF" )        
               
        MsgStop( dDate )
       
        dDate := FLWRITEDATE( "C:\TEST.PDF" )        
               
        MsgStop( dDate )
RETURN NIL


#pragma BEGINDUMP

#include <windows.h>
#include "hbapi.h"

HB_FUNC( FCREATEDATE )

{
        HANDLE          hFile  ;
        WIN32_FIND_DATA wfd ;
        SYSTEMTIME      st ;

        hFile = FindFirstFile( hb_parc( 1 ), &wfd ) ;
        if ( hFile != INVALID_HANDLE_VALUE )  {
                FileTimeToSystemTime( &wfd.ftCreationTime, &st ) ;
       
                FindClose( hFile ) ;
        }  
        else  {
                st.wYear = 0 ;
                st.wMonth = 0 ;
                st.wDay = 0 ;
        }
       
        hb_retd( st.wYear, st.wMonth, st.wDay ) ;
}

HB_FUNC( FLACCESSDATE )

{
        HANDLE          hFile  ;
        WIN32_FIND_DATA wfd ;
        SYSTEMTIME      st ;

        hFile = FindFirstFile( hb_parc( 1 ), &wfd ) ;
        if ( hFile != INVALID_HANDLE_VALUE )  {
                FileTimeToSystemTime( &wfd.ftLastAccessTime, &st ) ;
       
                FindClose( hFile ) ;
        }  
        else  {
                st.wYear = 0 ;
                st.wMonth = 0 ;
                st.wDay = 0 ;
        }
       
        hb_retd( st.wYear, st.wMonth, st.wDay ) ;
}


HB_FUNC( FLWRITEDATE )

{
        HANDLE          hFile  ;
        WIN32_FIND_DATA wfd ;
        SYSTEMTIME      st ;

        hFile = FindFirstFile( hb_parc( 1 ), &wfd ) ;
        if ( hFile != INVALID_HANDLE_VALUE )  {
                FileTimeToSystemTime( &wfd.ftLastWriteTime, &st ) ;
       
                FindClose( hFile ) ;
        }  
        else  {
                st.wYear = 0 ;
                st.wMonth = 0 ;
                st.wDay = 0 ;
        }
       
        hb_retd( st.wYear, st.wMonth, st.wDay ) ;
}

#pragma ENDDUMP

regards
Massimo