'ファイル一覧取得
ListBox1.DataSource = My.Computer.FileSystem.GetFiles( _
                                  "C:\TEST", _
                                  FileIO.SearchOption.SearchTopLevelOnly, _
                                  "*.txt")
'第1引数 = 対象フォルダ
'第2引数 = FileIO.SearchOption.SearchTopLevelOnly : 第1引数のフォルダのみ対象()
'        =FileIO.SearchOption.SearchAllSubDirectories:第1引数のフォルダとサブフォルダ
'第3引数 = 抽出ワイルドカード