Click above to get retro games delivered to your door ever month!

 FilCreateDateGet() / FilCreateDateSet()
------------------------------------------------------------------------------
 Purpose:
 Get or set the file creation date.

 Syntax:
 lpszDate = FilCreateDateGet( lpszPath )
 lpszDate = FilCreateDateSet( lpszPath, lpszNewDate )

 Parameters:
 lpszPath    The full NetWare directory path of the file.
 lpszNewDate The file's new creation date.

 Returns:
 A character string of length 8 (see Notes).

 The CA-Clipper names for these functions are:
 FilCreDteGet() / FilCreDteSet()

 Description:
 FilCreateDateGet() returns the date that the file specified by lpszPath
 was created. lpszPath must be the full directory path, including the
 name of the file, the path and the volume, for example,
 SYS:DATA\KATIE\WP\KATIE.DOC.

 FilCreateDateSet() sets the creation date of the specified file lpszPath to
 lpszNewDate and returns the new value.

 Returns an empty string if an error occurs.

 Example:
 // To find the date that SYS:DATA\KATIE\WP\KATIE.DOC was created:

 lpszCreateDate = FilCreateDateGet("SYS:DATA\KATIE\WP\KATIE.DOC")
 if ( !empty( lpszCreateDate ) )
    ? "SYS:DATA\KATIE\WP\KATIE.DOC was created on ", lpszCreateDate
 endif

 // To change the creation date of file SYS:DATA\KATIE.DOC to today's
 // date:

 lpszOlddate = FilCreateDateSet( "SYS:DATA\KATIE.DOC", date() )
 lpszNewDate = FilCreateDateGet( "SYS:DATA\KATIE.DOC" )
 if ( !empty( lpszNewdate ) )
    ? "SYS:DATA\KATIE.DOC's creation date was ", lpszOlddate
    ? "SYS:DATA\KATIE.DOC's creation date is now ", lpszNewdate
 endif

 Notes:
 Appropriate trustee access rights are required to use these
 functions.

 The format of the date values is the ANSI style "yyyymmdd" except with
 CA-Clipper and CA-Visual Objects where the date values are of type DATE.