Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'指定のフォルダー内のファイルを全て列挙する
    Dim FolderName As String
    Dim FileName As String
    ''フォルダーの参照ダイアログを表示
    If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
        ''フォルダー名を取得
        FolderName = FolderBrowserDialog1.SelectedPath
    Else
        Exit Sub
    End If
    'リストボックスをクリア
    ListBox1.Items.Clear()
    ''リストボックスに水平スクロールバーを表示
    ListBox1.HorizontalScrollbar = True

    'フォルダー名が取得できたら
    If FolderName.Length > 1 Then
        'フォルダー内の全てのファイルのパスを取得
        For Each FileName In System.IO.Directory.GetFiles(FolderName)
        '指定の拡張子のファイルだけ取得する場合
            'リストボックスにファイル名を表示
            ListBox1.Items.Add(System.IO.Path.GetFileName(FileName))
        Next
    End If
End Sub