４．指定のフォルダー内のファイルをすべて列挙する(32_Fil_04)　(旧、SampleNo.024)

１．指定のフォルダー内のファイルを全て列挙する ２．指定のフォルダー内の指定の拡張子のファイルを全て列挙する ３． ４． ５． ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：追加なし 参照設定：追加なし その他　： 　　　　： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．指定のフォルダー内のファイルを全て列挙する

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '指定のフォルダー内のファイルを全て列挙する     'FolderBrowserDialog クラスのインスタンスを作成(ツールボックスから貼り付ける場合は必要ありません)     Dim FolderBrowserDialog1 As New FolderBrowserDialog     Dim FolderName As String = ""     Dim FileName As String = ""     If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then         'フォルダー名を取得         FolderName = FolderBrowserDialog1.SelectedPath     End If     FolderBrowserDialog1.Dispose()     If FolderName.Length < 1 Then         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

２．指定のフォルダー内の指定の拡張子のファイルを全て列挙する

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '指定のフォルダー内の指定の拡張子のファイルを全て列挙する     'FolderBrowserDialog クラスのインスタンスを作成(ツールボックスから貼り付ける場合は必要ありません)     Dim FolderBrowserDialog1 As New FolderBrowserDialog     Dim FolderName As String = ""     Dim FileName As String = ""     If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then     'フォルダー名を取得     FolderName = FolderBrowserDialog1.SelectedPath     End If     FolderBrowserDialog1.Dispose()     If FolderName.Length < 1 Then     Exit Sub     End If     'リストボックスをクリア     ListBox1.Items.Clear()     'リストボックスに水平スクロールバーを表示     ListBox1.HorizontalScrollbar = True     'フォルダー名が取得できたら     If FolderName.Length > 1 Then         '指定の拡張子のファイルだけ取得する場合         For Each FileName In System.IO.Directory.GetFiles(FolderName, "*.txt")             'リストボックスにファイル名をフルパスで表示             ListBox1.Items.Add(FileName)         Next     End If End Sub

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)