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

 DirModifyDateGet() / DirModifyDateSet()
------------------------------------------------------------------------------
 Purpose:
 Get or set the last modification date of a directory.

 Syntax:
 lpszDate = DirModifyDateGet( lpszPath )
 lpszDate = DirModifyDateSet( lpszPath, lpszNewDate )

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

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

 The CA-Clipper names for these functions are:
 DirModDteGet() / DirModDteSet()

 Description:
 DirModifyDateSet() returns the date that the directory specified by
 lpszPath was last modified. 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.

 DirModifyDateSet() sets the modification date of the specified directory
 lpszPath to the value specified by lpszNewDate and returns the previous
 modification date.

 Returns an empty string if an error occurs.

 Example:
 // To find the last date that SYS:DATA\KATIE\WP was modified.
 lpszModDate = DirModifyDateGet( "SYS:DATA\KATIE\WP" )
 if ( !empty( lpszModDate ) )
    ? "SYS:DATA\KATIE\WP was last modified on", lpszModDate
 endif
 // To change directory SYS:DATA\KATIE\WP's last modified date to today's
 // date:
 lpszOldDate = DirModifyDateSet( "SYS:DATA\KATIE\WP", date() )
 lpszNewDate = DirModifyDateGet( "SYS:DATA\KATIE\WP" )
 if ( !empty( lpszNewDate ) )
    ? "SYS:DATA\KATIE\WP's last modified date is ", lpszNewDate
 endif

 Notes:
 These functions only work with 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.