CopyToDatabase kopiert keine Dokumente

[Kadlec]

Hallo,

bin gerade am verzweiflen, unten stehender code sollte eigentlich einige Dokumente in eine zweite DB kopieren.
Es geschieht aber nichts, woran kann das liegen?


Sub Initialize
Dim session As New NotesSession
Dim sourcedb As NotesDatabase
Dim targetdb As NotesDatabase
Dim view As notesview
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set sourcedb = session.CurrentDatabase
Set targetdb = New NotesDatabase("DERUEDV01/D/XXSERVER","zzt1zp\PRTSDCTTool_a.nsf")

Set view = sourcedb.GetView("Copy_V")
Set doc = view.GetFirstDocument
While Not(doc Is Nothing)
   Call doc.CopyToDatabase(targetdb)
   Set doc = view.GetNextDocument(doc)
Wend
   
   
End Sub

[koehlerbv]

Das ist simpel gestrickt, übersichtlich und offensichtlich fehlerfrei. Gibt es Fehlermeldungen? Gibt es überhaupt Ansichten, die die kopierten Dokumente anzeigen können? Was sagen nach einer Kopieraktion die DB-Eigenschaften der Ziel-DB über die Dokument-Anzahl aus?

Bernhard

[Kadlec]

Hi Bernhard,

es gibt keinerlei Fehlermeldung, Script geht sauber durch alle doks der Ansicht.
Eine Ansicht ist vorhanden.
Die Db-Eigenschaften ändern sich nicht.

Boris

[m3]

Ich würd mal statt dem "Call doc.CopyToDatabase" mal den Rückgabewert auswerten:
Set newNotesDocument = notesDocument.CopyToDatabase( notesDatabase )
Und dann schaun, ob newNotesDocument einen Wert hat.

[Kadlec]

Ich trau mich gar nicht es zu sagen aber das kopieren hat doch funktioniert.
Nur in eine andere DB....
So ein Sch.... da probiere ich jetzt mindestens 10 mal und stelle erst dann fest das der Name der DB falsch war.

Sorry, 
Boris