Re: Recursion of Recursion of Recursion....of RecusionX

Fri, 03 Feb 2006 08:26:23 -0800 


On Feb 2, 2006, at 11:54 AM, Joseph J. Strout wrote:


Function FindFoo(dir as FolderItem) As FolderItem
  for i as Integer = dir.Count DownTo 1
    Dim f As FolderItem = dir.TrueItem( i )
    if f.Name = "foo.bar" then return f   // found it!
    if f.Directory then
       f = FindFoo(f)    // (here's the recursion)
if f <> nil then return f // (here we back out once we have an answer) 
    end if
  next
End Function


Thanks Joseph. This helps quite a bit.
I'm just typing this into email, so it may contain a typo or two, but that's the basic idea. 

Yeah. I think you dropped some end ifs.

Thanks, again....

Chuck
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>

Reply via email to