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

 DirArchiveIDGet() / DirArchiveIDSet()
------------------------------------------------------------------------------
 Purpose:
 Get or set ID of the object that archived a directory.

 Syntax:
 dwObjID = DirArchiveIDGet( lpszPath )
 dwObjID = DirArchiveIDSet( lpszPath, dwNewID )

 Parameters:
 lpszPath The full NetWare path of the directory.
 dwNewID  The new bindery ID of the archiver.

 Returns:
 A numeric value (unsigned long int).

 The CA-Clipper names for these functions are:
 DirArcIDGet() / DirArcIDSet()

 Description:
 DirArchiveIDGet() returns the bindery object ID number of the last user
 that archived the directory specified by lpszPath. lpszPath must be the
 full path of the directory, including the volume name, e.g. SYS:DATA\WP,
 where WP is the directory in question.

 DirArchiveIDSet() sets the archive ID to the bindery object ID number
 dwNewID and returns the previous archive ID.

 Returns NOVERRLONG if an error occurs.

 Example:
 // To return the name of the last user to archive the
 // directory SYS:DATA\WP:
 lpszCurrName = UsrNameGet( DirArchiveIDGet( "SYS:DATA\WP" ) )
 if ( !empty( lpszCurrName ) )
    ? "The last user to archive directory SYS:DATA\WP was "
    ?? lpszCurrName
 endif
 // To change the last archiver ID of SYS:DATA\WP to KATIE's ID:
 dwOldID = DirArchiveIDSet( "SYS:DATA\WP", UsrIDGet("KATIE") )
 dwNewID = DirArchiveIDGet( "SYS:DATA\WP" )
 lpszNewName = UsrNameGet( dwNewID )
 if ( !empty( lpszNewName ) )
    ? "The last archiver of directory SYS:DATA\WP is now ",lpszNewName
 endif

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

 When changing the last archiver ID make sure the new ID is a valid bindery
 ID number.