ヤフー知恵袋に回答のあるVB.netのコードについて教えてください

Question

私は今Vbnetの勉強をしています。

そこでヤフー知恵袋にある質問回答を発見し、その回答を自分のパソコンのVB2015で試したところ、ある部分でエラーが出ました。
ある部分とは下記です。

files = Directory.GetFiles(DirPath)

エラー内容は、

---

NullReferenceExceptionはハンドルされませんでした。
型 'System.NullReferenceException' のハンドルされていない例外が Microsoft.VisualBasic.dll で発生しました
追加情報:オブジェクト変数または With ブロック変数が設定されていません。
トラブルシューティングのヒント：
メソッドを呼び出す前に、オブジェクトがNullで良いかどうか確認してください。
オブジェクトインスタンスの作成にはnewキーワードを使用します。
この例外に関する一般的なヘルプを参照します。

---

ちなみにヤフー知恵袋の質問者はVB2010のようです。
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1183808806

質問者は回答者からアンサーをもらって正常に動いているようですが、私のVBではエラーが出てしまっています。
どうしてか教えていただけますでしょうか。
ちなみに私はVB初心者です。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 Dim dt As New DataTable("File Viewer")
 Dim files As String()
 Dim DirPath As String = "C:\File Viewer\"

 dt.Columns.Add("ファイル名")
 dt.Columns.Add("ファイル種類")
 dt.Columns.Add("ファイルサイズ")

 files = Directory.GetFiles(DirPath)

 For Each filePath As String In files
 Dim fi As New FileInfo(filePath)
 Dim dr As DataRow = dt.NewRow()
 dr("ファイル名") = fi.Name
 dr("ファイル種類") = fi.Extension
 dr("ファイルサイズ") = fi.Length
 dt.Rows.Add(dr)
 Next

 DataGridView1.DataSource = dt
 End Sub

Comments

[KoichiSugiyama]

どんなエラーが出ているのかを正確に提示していただけますか。

[退会済みユーザー]

エラー内容書き込みました。よろしくお願いいたします。

Answer 1

事前にfでファイル名検索をしました。

Dim FileName As String = txtBoxFileName.Text
Dim files1 As String() = IO.Directory.GetFiles(fpath, "*" & FileName & "*", System.IO.SearchOption.AllDirectories)
For Each f As String In files1

そのfを用いることでエラーはなくなりました。

            Dim dt As New DataTable()
            Dim dr As DataRow = dt.NewRow()
            dt.Rows.Clear()
            dt.Columns.Add("ファイル名")
            dt.Columns.Add("更新日時")
            dt.Columns.Add("サイズ(kB)")
            dt.Columns.Add("パス")
            dr("ファイル名") = System.IO.Path.GetFileName(f)
            dr("更新日時") = System.IO.File.GetLastWriteTime(f)
            'dr("サイズ") = System.IO.
            dr("パス") = System.IO.Path.GetDirectoryName(f)
            dt.Rows.Add(dr)
            dgv1.DataSource = dt

ただ、'dr("サイズ") = ・・・の書き方がわかりません。

Comments

[退会済みユーザー]

Filelen(ファイルフルパス)かも

Answer 2

環境がないので確認できませんが、DirPathに指定しているパスが存在するか確認してください。

Dim DirPath As String = "C:\File Viewer"

知恵袋のをそのまま使っているようなので、自分の環境が同じとは限らないですよ。

Comments

[退会済みユーザー]

ご回答ありがとうございます。
実際はヤフー知恵袋の回答を参考にして自分でコード書いてます。ファイル検索行っていからデータグリッドビューに表示させるようにしてました。ファイル検索で使用した変数をデータグリッドビュー表示の際に使わず新しく変数を作った(fi)ためにエラーが起きたみたいです。
とは言っても別の問題が出てきてしまったりしているのすが。

今日は力尽きたので、明日正式に書き出しします。

Answer 3

ﾌｫｰﾑを作ってそのまま貼り付けてみましたが動いちゃいました
Imports System.IO追加、DirPath修正しただけ
色々消したりしたけど上記のｴﾗｰが出ないですね

Visual Studio Community 2015 Version 14.0.25123.00 Update 2

Imports System.IO
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim dt As New DataTable("File Viewer")
        Dim files As String()
        Dim DirPath As String = "C:\xampp\"

        dt.Columns.Add("ファイル名")
        dt.Columns.Add("ファイル種類")
        dt.Columns.Add("ファイルサイズ")

        files = Directory.GetFiles(DirPath)

        For Each filePath As String In files
            Dim fi As New FileInfo(filePath)
            Dim dr As DataRow = dt.NewRow()
            dr("ファイル名") = fi.Name
            dr("ファイル種類") = fi.Extension
            dr("ファイルサイズ") = fi.Length
            dt.Rows.Add(dr)
        Next

        DataGridView1.DataSource = dt
    End Sub
End Class

Comments

[退会済みユーザー]

ご回答ありがとうございます。
実際はヤフー知恵袋の回答を参考にして自分でコード書いてます。ファイル検索行っていからデータグリッドビューに表示させるようにしてました。ファイル検索で使用した変数をデータグリッドビュー表示の際に使わず新しく変数を作った(fi)ためにエラーが起きたみたいです。
とは言っても別の問題が出てきてしまったりしているのすが。

今日は力尽きたので、明日正式に書き出しします。

Answer 4

すみません、長々と書いていたのですが、もしかしたらDirecotryを使うにあたって、 System.IOの名前空間をインポートしていないからじゃないかと思えてきました。

Comments

[退会済みユーザー]

ご回答ありがとうございます。
実際はヤフー知恵袋の回答を参考にして自分でコード書いてます。ファイル検索行っていからデータグリッドビューに表示させるようにしてました。ファイル検索で使用した変数をデータグリッドビュー表示の際に使わず新しく変数を作った(fi)ためにエラーが起きたみたいです。
とは言っても別の問題が出てきてしまったりしているのすが。

今日は力尽きたので、明日正式に書き出しします。