【VB.net】 CSVファイルの読み込みの際のパスの受け渡し

Question

前提・実現したいこと

VB.netデスクトップアプリを作っており、CSVを読み込んでテキストボックスに表示させたいです。
基本的な処理はかけていて、ボタンクリックイベントで取得したファイルのパスを、
実行処理にて引数として使うとエラーになります。
ファイル名が含まれていないからでしょうか？
ファイル名を含めるようにするにはどうすればよいでしょうか？

###構成
以下のメソッドオブジェクトで構成しています。
・イベント処理（ボタンクリック時にダイアログを表示させ、選択したCSVファイルのパスを取得）
・実行処理（パスを引数としてファイルを読み込み、テキストボックスに表示する）

発生している問題・エラーメッセージ

ファイルが見つかりません。と表示されます

エラーメッセージ
System.IO.FileNotFoundException:'ファイル'C¥Users¥〇〇¥Desktop'が見つかりませんでした。

該当のソースコード

ソースコード
　　''---コントロールイベント
　　'---BTNボタンクリックイベント
　　Private sub InputCSVBTN_click 以下省略
　　　'OpenFileDialogインスタンスを生成
　　　Dim ofd As New OpenFileDialog()

　　　If ofd.ShowDialog() = DialogResult OK Then
        '読み込みファイルのパスを取得
　　　　 Dim FilePath AS String = IO.Path.GetDirectoryName(ofd.FileName)
        '読み込み処理を実行
　　　　　InputCSV(FilePath)


　''---実行処理
　'---ファイル読み込み
　Public InputCSV(Bybal FilePath As String)
            Using objIoTFP As New Microsoft.VisualBasic.FileIO.TextFieldParser(FilePath, Encoding.GetEncoding("Shift_JIS"))
                '読み込み時の設定
                With objIoTFP
                    '区切り文字をカンマに設定
                    .TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.Delimited
                    .SetDelimiters(",")
                    '空白があった場合にTrimしない
                    .TrimWhiteSpace = False
                End With

                'CSV読み込み実行
                While Not objIoTFP.EndOfData
                    Dim arrayRow As String() = objIoTFP.ReadFields()
                    Dim strVeiwResult As String = Nothing
                    For Each objField As String In arrayRow
                        '表示
                        strVeiwResult = strVeiwResult & objField & ","
                    Next
                    '列の末尾のカンマを削除
                    strVeiwResult = strVeiwResult.TrimEnd(",")
                    'テキストボックスに表示
                    txtResult.Text = txtResult.Text & strVeiwResult & vbCrLf
                End While
            End Using

Comments

[YAmaGNZ]

フォルダのパスを渡してどのファイルを開くのですか？
また、デバッガで変数の値など確かめないのですか？

[urozero]

ダイアログで指定したCSVファイルです。
パスの理解ができていないかもしれません。
フルパスじゃないといけないということでしょうか？

[urozero]

デバックしていませんでした。すみません。
ファイル名は取得できていましたが、パスがnothingになっておりました。

Answer 1

開示されたコードではわざわざフルパスからフォルダのパスを取得してそれをInputCSV()の引数に使用していますが、それだと開きたいファイルは指定されていないことになります。
エラーメッセージにもその旨表示されています。

InputCSV(ofd.FileName)

でやってみてください。

Comments

[urozero]

回答ありがとうございます。YAmaGNZさんのアドバイスで気づけました。
申し訳ありませんが、YAmaGNZさんの回答をベストアンサーとさせてくださいm(__)m

Answer 2

Dim FilePath AS String = IO.Path.GetDirectoryName(ofd.FileName)

これが何をしているのか、ofd.FileNameには何が入っているのかを理解しましょう。
デバッガで中身を見るなり、ログとして出力するなりして確認してみてください。

Comments

[urozero]

デバックしていませんでした。すみません。
ofd.FileNameはフルパスということで合っているでしょうか
最初におっしゃっていたように、FilePathにあるどのファイルなのか指定してないということでしょうか

[YAmaGNZ]

ファイルを指定する場合、「どこそこのこのファイル」という感じで指定しないと分からないと思いませんか？
その場所からこのファイルという情報がフルパスになります。

[urozero]

解決しました。自分のやってることを理解してないことを痛感しました。
ご鞭撻感謝いたします。

[urozero]

解決した方法は以下の通りです。
イベント処理での実行処理メソッド：InputCSV(ofd.FileName)

デバックする癖をつけます。
今回もお世話になりました。