Domino 9 und frühere Versionen > Entwicklung

Wie kann man Profildokumente löschen?

(1/4) > >>

bob:
Hi,

hab schon hier und im Internet gesucht, wie man Profildokumente löschen kann.

Eine Lösung war, dies mit NotesPeek zu machen. Aber damit kann ich nur lesend zugreifen.

Also wie kann man Profildoks löschen? Am liebsten wäre mir eine Lösung ohne Tools.

cya,
Bob

Rob Green:
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Set db = session.CurrentDatabase
   Dim NDC As notesDocumentCollection
   Set NDC = db.GetProfileDocCollection( "NAMEDERPROFILMASKE" )
   Set doc = NDC.getfirstdocument
                While Not (doc Is Nothing)
   If doc.isprofile Then
      call doc.remove(true)
   End If
                set doc=ndc.getnextdocument(doc)
                Wend

ata:
@Rob,

... ich glaube, daß das so nicht funktionieren wird, da du auf ein gelöschtes Dokument als Referenz bei GetNextDocument(doc) zugreifst...

... anstelle dessen nimmst du ...

Set doc = dc.getFirstDocument

... also wieder das erste in der Collection

... oder bin ich auf dem falschen Dampfer?

ata

Rob Green:
ach ja...klatsch..klar  ;D

Hatte es doch selbst vor einiger Zeit...

der TRick war

set doc = DC.getfirstdocument
While Not (doc is nothing)
...
set docKopie = doc
...
if ... then
remove docKopie(true)
end if
...
set doc = DC.getnextdocument(doc)
wend

danke, ata  ;)

ata:
... oder eben so...

ata  ;)

Navigation

[0] Themen-Index

[#] Nächste Seite