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

 FilArchiveDateGet() / FilArchiveDateSet()
------------------------------------------------------------------------------
 Purpose:
 Get or set the last archive date of a file.

 Syntax:
 lpszDate = FilArchiveDateGet( lpszPath )
 lpszDate = FilArchiveDateSet( lpszPath, lpszNewDate )

 Parameters:
 lpszPath    The full NetWare directory path name of the file.
 LpszNewDate The new date.

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

 The CA-Clipper names for these functions are:
 FilArcDteGet() / FilArcDteSet()

 Description:
 FilArchiveDateGet() returns the date that the file specified by
 lpszPath was last archived (backed up).

 LpszPath must be the full path, including the name of the file itself and
 the volume name, for example, SYS:DATA\KATIE\WP\KATIE.DOC.
 FilArchiveDateSet() sets the archive date for the file specified by
 lpszPath to the specified date lpszNewDate and returns the previous archive
 date.

 Returns an empty string if an error occurs.

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

 lpszArcDate = FilArchiveDateGet( "SYS:DATA\KATIE\WP\KATIE.DOC" )
 if ( !empty( lpszArcDate ) )
    ? "SYS:DATA\KATIE\WP\KATIE.DOC was last archived on", lpszArcDate
 endif

 // To change file SYS:DATA\KATIE\KATIE.DOC's last archived date to
 // today's date:

 FilArchiveDateSet( "SYS:DATA\KATIE\KATIE.DOC", date() )
 lpszArcDate = FilArchiveDateGet("SYS:DATA\KATIE\KATIE.DOC" )
 if ( !empty( lpszArcDate ) )
    ? "SYS:DATA\KATIE\KATIE.DOC's archive date is now ", lpszArcDate
 endif

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

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