Reading Filenames to an array

Public Sub GetFileList()

Const ArrTop As Integer = 300 'allow 301 files
Dim MyArray(ArrTop) As String
Dim strdrive As String
Dim file_name As String
strdrive = "I:\Mypdfs" '[COLOR="Red"][B]< my location for some pdfs[/B][/COLOR]
Dim i As Integer ' MyArray index for fill


On Error Resume Next


file_name = dir$(strdrive & "\*.pdf")  '[COLOR="Red"][B]you said pdf files[/B][/COLOR]
i = 0
Do While (Len(file_name) > 0)

    ' See if we should skip this file.
    If Not (file_name = ".") Or (file_name = "..") Then
        MyArray(i) = file_name
        Debug.Print "Myarray(" & i & ") contains " & file_name
        i = i + 1
    End If

    ' Get the next file.
    file_name = dir$()
Loop
End Sub

Public Sub GetFileList()

Const ArrTop As Integer = 300 'allow 301 files
Dim strfile(ArrTop) As String
Dim strdrive As String

strdrive = "C:\pdfs" 'location for PDF's

On Error Resume Next

        With Application.FileSearch
            'indicate a new search.
            .NewSearch
            'Tell the search where to start.
            .Lookin = strdrive           'this is the base path of your search
            'inform the search to also check Sub-Folders.
            .SearchSubFolders = True
            'Inform the search we're looking for a PDF file
            .FileName = "*.pdf"
            'Execute and sort the search....

            If .Execute(SortBy:=msoSortByFileName, _
                SortOrder:=msoSortOrderAscending) > 0 Then
                
                'A few optionals thrown in..........
                If .FoundFiles.Count > 1 Then
                
                    For i = 1 To .FoundFiles.Count
                        strfile(i) = .FoundFiles(i)
                    Next i
                    
                    MsgBox "There were more than one files found.", vbOkOnly                   
                Else
                    For i = 1 To .FoundFiles.Count
                        strfile(i) = .FoundFiles(i)
                    Next i
                End If
            
            Else
                MsgBox = "There were no files found.", vbOkOnly
            End If
                
        End With