Domino 9 und frühere Versionen > ND8: Entwicklung

Leere Ordner finden

(1/1)

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
--- Ende Code ---

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

--- Ende Code ---

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

Navigation

[0] Themen-Index