'フォルダ直下の全てのデータパスを取得
Dim FileName As String() = _
System.IO.Directory.GetFiles _
("C:\test, *")
'フォルダ直下のtxtデーパスを取得
Dim FileName As String() = _
System.IO.Directory.GetFiles _
("C:\test, *.txt")
'取得したデータパスの数を取得
Dim FileCnt as integer = FileName.Length
'Forで使用する際は、FileCnt-1とする事
for i as integer = 0 to FileCnt-1
'処理
next