Finding files in directories

[BananaFredSoft]

I have been trying to make a function that finds all of the wav/mp3 files in a directory, even in the subdirectories and then indexes them. Here is my failed attempt:

Func IndexDirectory ()
    $rootdir = FileSelectFolder("Select the directory to index.", "")
    $dir = $rootdir & "\"
    $ff = FileFindFirstFile($dir & "*")
    While 1
        $nd = FileFindNextFile($ff)
        If @error Then
            $dir = getdir($dir)
            If $dir = getdir($rootdir) Then ExitLoop
        ElseIf BitOR(StringRight($nd, 3) = "mp3", StringRight($nd, 3) = "wav") Then
            IndexFile($dir & $nd)
        ElseIf StringInStr(FileGetAttrib($dir & $nd), "D") Then
            $dir = $dir & $nd
            $ff = FileFindFirstFile($dir & "*")
        EndIf
    WEnd
EndFunc

Func IndexFile ($file)
    MsgBox(0, "Debug", $file)
EndFunc

Func getdir($filename)
    $split = StringSplit($filename, "\")
    If Not @error Then
        $dir = ""
        $num = 1
        Do
            $dir &= $split[$num] & "\"
            $num += 1
        Until $num = $split[0]
        Return $dir
    EndIf
EndFunc   ;==>getdir

Can anyone help make this work?

Thanks in advance

[SmOke_N]

Look in randallc's signature for FileListToArray .... You can also look for _FileListToArrayEx() which I wrote in the examples forum, but I believe Randall's is now faster.

[BananaFredSoft]

Look in randallc's signature for FileListToArray .... You can also look for _FileListToArrayEx() which I wrote in the examples forum, but I believe Randall's is now faster.

Does it get files in subdirectories?

[BananaFredSoft]

I still can't figure out how to make a function that utilizes this and gets all of the .mp3/.wavs in subdirectories.

Edited August 9, 2007 by BananaFredSoft

[SmOke_N]

I still can't figure out how to make a function that utilizes this and gets all of the .mp3/.wavs in subdirectories.

Did you bother to look up the 2 functions I told you to find? They both have the option to look for "specific extensions"/with Recurse.