VB GetFiles

Question

1.現在のディレクトリを取得し、それをTextBox1に表示。
2.さらにButton2をクリックでListBox1に現在ディレクトリのファイルをすべて表示。

1についてはうまくいっているようなのですが、2についてがうまくいきません。下記画像のエラーになってしまいます。宜しくお願い致します。

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim dname As String = System.IO.Directory.GetCurrentDirectory()
        TextBox1.Text = dname
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        System.IO.Directory.GetFiles("TextBox1.Text")
        Dim files() As String = System.IO.Directory.GetFiles("dname")
        ListBox1.Items.AddRange(files)
    End Sub
End Class

コード

Answer 1

TextBox1の値を使ってGetFilesしたいならこうでしょうか。

        System.IO.Directory.GetFiles("TextBox1.Text")
        Dim files() As String = System.IO.Directory.GetFiles("dname")
↓
        Dim files() As String = System.IO.Directory.GetFiles(TextBox1.Text)

※環境がないので動作未確認。

Comments

[Taichijava]

ご回答ありがとうございます。試してみましたがうまくいきませんでした。

[ttyp03]

どううまくいかないのでしょうか？

[Taichijava]

再度確認したところうまくいきました。
Dim files() As String = System.IO.Directory.GetFiles("dname")
↓
Dim files() As String = System.IO.Directory.GetFiles(TextBox1.Text)
とttyp03様のご回答を誤解していました。申し訳ありません。大変助かりました。ありがとうございました。

もしよろしければなぜ最初のコードがだめだったか教えていただけますか？

[ttyp03]

＞なぜだめだったか
"dname"は単なる文字列です。
"dname"というディレクトリからファイル一覧を取得することになります。

[Taichijava]

なるほど、dnameはLoadプロシージャでのみ有効で、TextBox1.Textはこのクラス内であればどこでも有効と理解しました。ありがとうございました。

[ttyp03]

まあそうですけど、そもそも"dname"と書いている時点でこれは変数ではないですよ。
もう少し基礎をやってから作り始めたほうがいいかもしれないですね。

Answer 2

試してないですが囲いがいらない気がします

System.IO.Directory.GetFiles("TextBox1.Text")

↓

System.IO.Directory.GetFiles(TextBox1.Text)

Comments

[Taichijava]

ご回答ありがとうございます。試してみましたがうまくいきませんでした。