Christian Schmitz wrote:
in etwa so:
Danke, schau ich mir an.
Sub Walk(folder as FolderItem) dim folders() as FolderItem folders.Append folder while UBound(folders)>0 dim currentFolder as FolderItem = folders.pop dim c as integer = folder.Count for i as integer = 1 to c dim item as FolderItem = folder.TrueItem(i) if item<>Nil then // no permission elseif item.Visible then // only visible
Müsste es nicht 'if item=Nil then' sein? Ansonsten mache ich es fast genauso. Ich nutze nur For-Next Schleifen und prüfe nicht auf Visible. Bei mir kommt es dann irgendwann zum StackOverflow. Würdest Du das bei Deiner Variante ausschließen? BTW, unter Mac OS sind unsichbare Dateien nicht die mit . am Anfang? Im Endeffekt soll die Routine doppelte Dateien raussuchen und ggf. zum Vergleich anzeigen können (im Regelfall Bilder). Deshalb lasse ich optional Dateien mit '._' am Anfang gleich unberücksichtigt. MfG, Metti.
