vb.net テキストファイルの中身をアレイリストで読み込む

実行ファイルと同じディレクトリ内にあるテキストファイルの中身を一行ずつアレイリストで読み込むプログラム

vb.net

'テキストファイルのファイル名

    Dim datafilename As String = "sample.txt"

 'テキストファイル内のテキストデータのarrayリスト

    Dim lines As String()

 Sub load_data(ByRef txtlines As Object, ByVal datafilename As String)

        '初期化

        txtlines = Nothing

        '自身の実行ファイルのパスを取得する

        Dim appPath As String = System.Reflection.Assembly.GetExecutingAssembly().Location

        Console.WriteLine(appPath)

        '実行ファイルのあるディレクトリを取得する

        Dim sCurrentDir As String = System.IO.Directory.GetCurrentDirectory()

        Console.WriteLine(sCurrentDir)

        'データーファイルのファイル名を足してファイルの存在を調べる

        Dim filepath As String = sCurrentDir & "\" & datafilename

        ' ファイルが存在しているかどうか確認する

        If System.IO.File.Exists(filepath) = False Then

            MsgBox("データファイルが存在しません。", MsgBoxStyle.MsgBoxSetForeground)

            Exit Sub

        End If

        '文字コードを設定(ここでは、Shift JIS)

        Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("shift_jis")

        '行ごとの配列として、テキストファイルの中身をすべて読み込む(一行ごとに読み込む場合に使用する)

        txtlines = System.IO.File.ReadAllLines(filepath, enc)

    End Sub