Christian Schmitz wrote:

in etwa so:

Sub Walk(folder as FolderItem)
dim folders() as FolderItem

folders.Append folder

while UBound(folders)>0

Wenn ich das richtig verstehe, wird UBound(folders) hier einen Wert 0
zurückliefern und somit die while-wend-Schleife nicht durchlaufen.

Zumindest waren meine Versuche nicht erfolgreich. Auch fehlt der
recursive Aufruf der Routine. Oder möchtest Du etwas ganz anderes
damit bezwecken?

MfG, Metti.

Antwort per Email an