Domino 9 und frühere Versionen > ND6: Entwicklung

Anzahl Deletion Stubs per Script ermitteln

<< < (2/2)

Matthias22:
Hallo Ralf,

erstmal danke!
Habe folgendes probiert:

   Dim nc As NotesNoteCollection
   Set nc = dbrep.CreateNoteCollection(False)
   
   Call nc.SelectAllNotes(True)
   Call nc.BuildCollection
   Messagebox nc.Count
   
   
   Dim nid As String, nextid As String
   nid = nc.GetFirstNoteId
   For i = 1 To nc.Count
       'get the next note ID before removing any notes
      nextid = nc.GetNextNoteId(nid)
      Set doc = db.GetDocumentByID(nid)
      
      If doc.IsValid = False Then
         'hier zählen Deletion Stubs
      End If
      
      nid = nextid
   Next
   Messagebox ...Zähler Deletion Stubs


nc.Count liefert mir eine größere Zahl als Dokumente in der Datenbank sind, soweit gut, aber bei doc.IsValid = False findet er keine Deletion Stubs.

Gruß
Matthias

Ralf_M_Petter:
Es tut mir Leid, ich habe mich geirrt. Ich war ziemlich sicher, dass die NoteCollection auch gelöschte Dokumente enthält, aber dem ist leider nicht der Fall. Dann sehe ich leider keine Möglichkeit zu den gelöschten Dokumenten über Lotus script zu kommen.

Grüße

Ralf

Navigation

[0] Themen-Index

[*] Vorherige Sete