データグリッドビューテキストファイル読み込み

Imports Microsoft.VisualBasic.FileIO

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
''データテーブル
Dim dt As New DataTable
Dim row As DataRow

''フィールド(列)を追加
dt.Columns.Add("filename", Type.GetType("System.String"))
dt.Columns.Add("env", Type.GetType("System.Int16"))
dt.Columns.Add("class", Type.GetType("System.Int16"))

''カンマ区切りテキストを読み込み、データテーブルに追加
Dim parser As TextFieldParser
parser = My.Computer.FileSystem.OpenTextFieldParser("C:\Users\naoki\Desktop\ttt.txt", ",")

While Not parser.EndOfData
row = dt.NewRow
row.ItemArray = parser.ReadFields
dt.Rows.Add(row)
End While
Call parser.Close()

''データグリッドビューにセット
DataGridView1.DataSource = dt
End Sub