Imports System.IO
Dim fInfo As FileInfo()
Dim i As Integer = 0
Dim path AS String = "INSERT FILE PATH"
Dim dInfo As New DirectoryInfo = New DirectoryInfo(path)
fInfo = dInfo.GetFiles("*.txt")
Dim files As String()
Dim File As String
files = Directory.GetFiles(path, "*.txt")
For Each File In files
'Do Something With The File
i += 1
Next