Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: bob am 22.03.03 - 13:52:55

Titel: Ordner löschen auf Button legen
Beitrag von: bob am 22.03.03 - 13:52:55

Hi,

wie ist der Code, um einen Ordner im Mailfile zu löschen.
Ich möchte den Menüpunkt "Aktionen / Ordneroptionen / Ordner löschen" auf einen Button legen.

In der Hilfe hab ich hierzu nix gefunden....


cu,
Bob

Titel: Re:Ordner löschen auf Button legen
Beitrag von: eknori am 22.03.03 - 14:02:12

Kannst du mit Script machen:

Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Set db = session.CurrentDatabase
Set view = db.GetView( "FolderName" )
Call view.Remove

Hier wird die NotesView Class verwendet, da intern ein Folder nichts anderes als eine Ansicht ist

Die Namen der Views bekommst du mir

Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Forall v In db.Views
  Messagebox(  v.Name  )
End Forall

Jetzt kannst du noch mit der IsFolder property  
 der NotesViewClass prüfen, ob es sich um einen Folder oder  eine Ansicht handelt. Danit kannst du dann die Auswahl der zu löschenden Objects einschränken.

Alles weitere findest du in der Notes Designer Hilfe bei den erwähnten Klassen.

eknori