File Creation Date

[karweru]

Hi everyone,

Anyone knows how to extract a file creation date? Kindly assist me.

[tave2009]

Hello Kaweru:
This exists in Harbour and is:

? FILEDATE("C:\TEXT\TEXT.TXT") // The date

Show the date of a particular file.
Hope this helps.

Saludos
Walter

[karweru]

Thanks Walter. The function however seems to return the date the file was last changed, not created.

[Rathinagiri]

I think we have to use Win32 API function calls for this.

http://support.microsoft.com/kb/188977

This article (for FoxPro) may help.

[gfilatov]

Thanks Walter. The function however seems to return the date the file was last changed, not created.

Have you tried the function FileStats() from harbour contrib library xHb

Code: Select all

PROCEDURE ShowStats( cFile )
   LOCAL cAttrib, nSize, dCDate, nCTime, dMDate, nMTime
   LOCAL cColor

   IF FileStats( cFile, @cAttrib, @nSize, @dCDate, @nCTime, @dMDate, @nMTime )
      @10,2 SAY "File name:  " + cFile
      @11,2 SAY "Attributes: '" + cAttrib + "'"
      @12,2 SAY "File size:  " + Alltrim( Str( nSize ) )
      @13,2 SAY "Created:    " + DtoC( dCDate ) + " " + TimeOfDay( nCTime )
      @14,2 SAY "Modified:   " + DtoC( dMDate ) + " " + TimeOfDay( nMTime )
   ELSE
      cColor = SetColor( "r+/b" )
      @10,2 SAY "NOT FOUND: " + cFile
      SetColor( cColor )
   ENDIF
RETURN

Hope that helps

[Rathinagiri]

Thanks Grigory.

[karweru]

Thank you so much Grigory.

[danielmaximiliano]

"Ohh, quien podra salvarme"

Yoooo el chapulin colorado!!!

Grigory, gracias por el dato, siempre contamos con su ayuda.


Translata Google:

"Ohh, who can be saved"

I´the chapulin colorado!!!

Grigory, thanks for the tip, always have your help.