Leere Ordner finden

[Max86]

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

[ascabg]

Hallo,

Code

NotesDatabase.Views

ist hier Dein erster Helfer.



Andreas

[Max86]

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

[ascabg]

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

[Max86]

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

Grüße Max