At 9:26 AM -0700 2/3/06, Chuck Pelto 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 glad I could help.
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.
Hmm, no, I don't think so. Perhaps you're not familiar with the
single-line "if" statement?
Best,
- Joe
--
Joseph J. Strout
[EMAIL PROTECTED]
_______________________________________________
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>
