Getting all of a certain file type

[nishantp]

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

Thats not a complete solution, that will only get certain files frmo 1 folder, however, i hope it helps. BTW u need VB6 for that to work.