DominoArea.org [Archive]

Bonjour,

J’arrive a créé une réplique locale d’une base en local.

Code : Tout sélectionner

   Dim s As New notessession
   Dim dbServer As NotesDatabase
   Dim db As NotesDatabase
   Dim rep As NotesReplication
   Dim re As NotesReplicationEntry
   Dim ServerDestination As String
   Dim ServerSource As String
   Dim CheminDestination As String
   
   Set db = s.CurrentDatabase
   
   ServerDestination = ""
   ServerSource = "NomduServeur"
   CheminDestination = "archive\a_" + db.FileName
   CheminSource = CheminDestination
   
   Set dbServer = New NotesDatabase (ServerSource, CheminSource)
   
   Set replica = dbServer.CreateReplica( "", CheminDestination )

Mais avec ce code j’ai deux problèmes :
Le temps de réplique du server vers le poste de l’utilisateur (très variable suivant la taille et le lien réseau)
Et la base n’est pas ajouter au réplicateur.

Aussi j’essai de créé un bouton qui ajoute simplement la base au réplicateur et là problème !
Les Evaluate ne fonctionnent pas.

Code : Tout sélectionner

   Dim s As New notessession
   Dim db As NotesDatabase
   Dim ServerSource As String
   Dim CheminSource As String
   Dim eval As Variant
   
   Set db = s.CurrentDatabase
   
   ServerSource = " NomduServeur "
   CheminSource = "archive\a_" + db.FileName
   
   Msgbox ServerSource & " -> " & CheminSource
   
   eval = Evaluate("@Command( [WindowWorkspace] )")
   eval = Evaluate("@Command( [AddDatabase] ; ServerSource : CheminSource ; 1 )")
   eval = Evaluate("@Command( [ToolsReplicate] ; 0  ) ")

Pouvez-vous prendre 5 minutes pour me dire où je fais fausse route ?

D’avance merci et bonne journée.
Phil59.

et pourquoi pas tout en formule
D abord la partie de creation de la réplique en appelant un agent et ensuite tes commandes

Bonjour,

Cela va être plus compliqué pour moi (je scripte en LS pour des besoins d'administration), mais pourquoi pas.

Merci de ta remarque et bonne soirée.
Phil59.

Bonjour,

Finalement pas si compliqué …

Code : Tout sélectionner

database := @Subset(@DbName; -1);
lendatabase := @Length(database);
databasearchive := "archive\\a_" + @Right(database; (lendatabase - 5));
servername := "NomServeur";
@Command( [WindowWorkspace] );
@Command( [AddDatabase] ; servername : databasearchive ; 1 );
@Command( [FileNewReplica] )

Bonne journée.
Phil59.