テキストファイルを開く

Imports System.IO

Public Class FileSystemForm

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'CSVファイルを開く。
        Using stream As New StreamReader("c:\test\test.txt")

            'ファイルの終端まで繰り返す
            Do Until stream.EndOfStream

                '1行読む
                Dim line As String = stream.ReadLine

                'カンマ区切りで配列に変換する
                Dim arr() As String = Split(line, ",")

                '何らかの処理
                For Each s As String In arr
                    MsgBox(s)
                Next
            Loop
           
        End Using

    End Sub
End Class

ツイート