эта функция выдаёт array со всеми фаилами (в том числе фаилы из подкаталогов)

    Function GetAllFiles(ByVal sPath As String) As String()
        Dim sFolders() As String
        Dim sFiles() As String
        Dim sTemp() As String
        Dim i As Integer
        Dim iSize As Integer

        sFolders = System.IO.Directory.GetDirectories(sPath)

        For i = 0 To sFolders.Length - 1
            sTemp = System.IO.Directory.GetFiles(sFolders(i))

            If sFiles Is Nothing Then
                sFiles = sTemp
            Else
                iSize = sFiles.Length

                ReDim Preserve sFiles(iSize + sTemp.Length - 1)
                sTemp.CopyTo(sFiles, iSize)
            End If

            GetAllFiles(sFolders(i))
        Next i

        Return sFiles
    End Function

//4mbi3nt