Detecting local replicas of a database

Use this code to detect if the current user has a local replica of the database. You can write this information to log documents or just prompt. You will need to replace the replica ID below with the ID from your database.

Dim repdb As New NotesDatabase( "", "" )
If repdb.OpenByReplicaID( "", "85256B61006EBC68" ) Then
	Msgbox "Local Replia found"
	Msgbox "Local Replia NOT found"
End If

Posted by fbrefere001 on Friday February 15, 2002