VBA gets a list of files within a folder

Private Strfiles (20)

Private Sub GetFiles (ByVal strfolder As String, ByVal ty as String) ' Get file list

If ifiles = 0 Then
Erase Strfiles
End If

If ifiles > Then
Exit Sub
End If

Dim filepaths, FilePath as String

filepaths = strfolder & "\*." & Ty

FilePath = Dir (filepaths) ' dir returns the first file name matching *. * *

Do While FilePath <> ""

Strfiles (ifiles) = strfolder & "\" & FilePath

Ifiles = ifiles + 1

FilePath = Dir ' once again calls Dir to get other matches *. * filename

Loop

End Sub

VBA gets a list of files within a folder