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

 DirArchiveDateGet() / DirArchiveDateSet()
------------------------------------------------------------------------------
 Purpose:
 Gets or sets the last archive date of a directory.

 Syntax:
 lpszDate = DirArchiveDateGet( lpszPath )
 lpszDate = DirArchiveDateSet( lpszPath, lpszNewDate )

 Parameters:
 lpszPath    The full NetWare path of the directory.
 lpszNewDate The new archive date.

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

 The CA-Clipper names for these functions are:
 DirArcDteGet() / DirArcDteSet()

 Description:
 DirArchiveDateGet() returns the last date on which the directory
 specified by lpszPath was archived (backed up). lpszPath must be the full
 directory path, including the name of the directory itself, and the volume
 name. For example SYS:DATA\KATIE\WP, where WP is the directory in question.

 DirArchiveDateSet() sets the archive date of the directory 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 last date that SYS:DATA\KATIE\WP was archived
 // backed up:
 lpszArcDate = DirArchiveDateGet( "SYS:DATA\KATIE\WP" )
 if ( !empty( lpszArcDate ) )
    ? "SYS:DATA\KATIE\WP was last archived on", lpszArcDate
 endif
 // To set the archive date of SYS:DATA\KATIE\WP to today's date:
 lpszoldDate = DirArchiveDateSet( "SYS:DATA\KATIE\WP", date() )
 lpsznewDate = DirArchiveDateGet( "SYS:DATA\KATIE\WP" )
 if ( !empty( lpsznewDate ) )
    ? "SYS:DATA\KATIE\WP's last archive date is now",lpsznewDate
 endif

 Notes:
 These functions only work on NetWare 386 and appropriate trustee
 access rights are required.

 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.