Das Notes Forum

Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: Max86 am 05.11.09 - 11:52:41

Titel: Leere Ordner finden
Beitrag von: Max86 am 05.11.09 - 11:52:41

Hallo Lotus Notes Gemeinde,

ich habe folgends Anliegen und hoffe hier unterstützung finden zu können.

Es geht darum das ich mit Hilfe eines Angenten innerhalb von Mail alle Ordner und Unterordner darauf hin prüfen möchte, ob Dokumente enthalten sind oder nicht. Wenn keine Dokumente enthalten sind soll der Ordner gelöscht werden.

Ich hoffe ihr könnt mir weiterhelfen.

Grüße Max

Titel: Re: Leere Ordner finden
Beitrag von: ascabg am 05.11.09 - 11:57:49

Hallo,

Code

NotesDatabase.Views

ist hier Dein erster Helfer.



Andreas

Titel: Re: Leere Ordner finden
Beitrag von: Max86 am 05.11.09 - 13:14:54

Vielen Dank für den Hinweis. Aber wie genau setzt ich das dann um, bzw. wie kann ich einen Ordner daraufhin prüfen ob er leer ist.

Grüße Max

Titel: Re: Leere Ordner finden
Beitrag von: ascabg am 05.11.09 - 14:42:56

Kurz und knapp.

Code

intCount = 1
set db = s.CurrentDatabase
forall v in db.views
  If v.EntryCount = 0 then
    'View bzw. Folder ist leer
    redim preserve vw_empty(1 to intCount)
    vw_empty(intCount) = v.Name
  End If
Next

For intCount = LBound(vw_empty) To ubound(vw_empty)
  set vw = db.GetView(vw_empty(intCount))
  Call vw.Remove
Next

Dieses Script stellt nicht den Anspruch auf Vollstaendigkeit.
Es fehlt z.B. komplett die Fehlerbehandlung.
Also -> anpassen an dei eigenen Verhaeltnisse


Andreas

Titel: Re: Leere Ordner finden
Beitrag von: Max86 am 05.11.09 - 15:07:16

Vielen Dank für die Mühe, dass hilft mir schon Sehr weiter.

Grüße Max