Am 03.09.2011 um 21:49 schrieb Stefan Mettenbrink:
> Wieso kommt dann durch den recursiven Aufruf der Durchsuchungsroutine
> der Stack Overflow? Nur Aufgrund der Menge an Unterordnern?
in etwa so:
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
if item.Directory then
folders.Append item
else
// work with file here
end if
end if
next
wend
End Sub
und für Packete haben wir ja folderitem.isBundleMBS im Plugin.
Gruß
Christian
--
Real Studio Database Days in Frankfurt/Main am 3./4. November 2011.
Weitere Informationen und Anmeldung auf:
http://www.monkeybreadsoftware.de/realbasic/events/frankfurt-2011-event.shtml
