Recursive File List function

[nishantp]

I have a function that will return any files in a given folder. But in order to make it also return files in subfolders, i was told i would have to make it recursive. Recursive functions are something ive never had to use yet...and quite frankly i dont understand them. Could someone tell me what modifications i would have to make to this function to make it return subfolder files as well?

Function DirList(strDir As String) As String()
    'returns a 0 based array with the files in strDir
    'Can contain a pattern such as "*.*"
    Dim Count As Integer
    Dim sFiles() As String
    Dim sFile As String
    
    sFile = Dir$(strDir)
    Count = -1
    Do
        Count = Count + 1
        ReDim Preserve sFiles(Count)
        sFiles(Count) = sFile
        sFile = Dir$
    Loop
    DirList = sFiles
End Function

thanks,
Nishant

[abhid]

recursive function is a function which calls itself untill a break condition.
you must check whether file u have searched is a dirctory and if it is a dirctory, call your function again with new dirctory name. repeat this untill all the files have been searched.
u must provide a break condition for recursive funtion otherwise it is a infinite loop

[nishantp]

I see...could you post an example of a recursive function so i can look at it? I almost get the idea....but im not quite there. The calling itself thing just doesnt click in.

[abhid]

i havent used recursive funtion in vb though
simple example would belike finding a factorial of a number


private function factorial(n as long,ans as long) as long
if n = 1 then
factorial = ans ' Check for break condition
else
ans = n * (n-1)
factorial (n-1,ans) ' This is where a recursive call is made
endif
end funtion

[nishantp]

I think i understand...but how would i implement that into my File-Listing function?

[abhid]

this link may help you out

http://www.vbforums.com/showthread.p...hreadid=118476

[macai]

Heres an example of a recursive function.

Function Down2One(Number)
 Down2One = Number - 1
 Do Until x < 1
  Down2One = Down2One(Number - 1)
 Loop
End Function

What that function does is call itself over and over decreasing
number by 1 each time until it is less than 1