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

 FilArchiveIDGet() / FilArchiveIDSet()
------------------------------------------------------------------------------
 Purpose:
 Get or set the ID of the object which last archived a file.

 Syntax:
 dwObjID = FilArchiveIDGet( lpszPath )
 dwObjID = FilArchiveIDSet( lpszPath, dwNewID )

 Parameters:
 lpszPath The full NetWare directory path of the file.
 dwNewID  The file's new ID.

 Returns:
 A numeric value (unsigned long int).

 The CA-Clipper names for these functions are:
 FilArcIDGet() / FilArcIDSet()

 Description:
 FilArchiveIDGet() returns the bindery object ID number of the last user
 that archived the file specified by lpszPath. lpszPath must be the full
 path of the file, including the volume name, e.g. SYS:DATA\WP\KATIE.DOC.

 FilArchiveIDSet() sets the object ID dwNewID of the last user to archive
 the specified file lpszPath and returns the previous archive ID.

 Returns NOVERRLONG if an error occurs.

 Example:
 // To return the name of the user that last archived the file
 // SYS:DATA\WP\KATIE.DOC:

 dwUserID = FilArchiveIDGet( "SYS:DATA\WP\KATIE.DOC" )
 lpszArcUser = UsrNameGet ( dwUserID )
 ? "SYS:DATA\WP\KATIE.DOC was last archived by", lpszArcUser

 // To change SYS:DATA\KATIE.DOC's last archiver ID to JOHN:

 dwNewuserID = UsrIDGet( "JOHN" )
 dwOlduserID = FilArchiveIDSet( "SYS:DATA\KATIE.DOC", dwNewuserID )
 lpszNewname = UsrNameGet( dwNewuserID )
 lpszOldname = UsrNameGet( dwOlduserID )
 if ( !empty( lpszNewname ) )
    ? "SYS:DATA\KATIE.DOC's last archiver was ",dwOldname
    ? "SYS:DATA\KATIE.DOC's last archiver is now ",dwNewname
 endif

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