８．指定フォルダー以下サブフォルダー内も含む全ファイルを列挙する(32_Fil_08)　(旧、SampleNo.027)

１．指定フォルダー以下サブフォルダー内も含む全ファイルを列挙する ２． ３． ４． ５． ６．

下記プログラムコードに関する補足・注意事項　 動作確認：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 '指定フォルダー以下サブフォルダー内も含む全ファイルを列挙する     Dim FolderBrowserDialog1 As New FolderBrowserDialog     Dim FolderName As String     If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then     'フォルダー名を取得     FolderName = FolderBrowserDialog1.SelectedPath     Else         Exit Sub     End If     ListBox1.BeginUpdate() 'コントロールを再描画しないようにする。     Dim sTime As DateTime = Now     ListBox1.Items.Clear()     ListBox1.HorizontalScrollbar = True     Call GetAllFiles(FolderName)     ListBox1.EndUpdate()  'コントロールの描画を再開する。     Dim eTime As DateTime = Now     MessageBox.Show(eTime.Subtract(sTime).TotalSeconds & " 秒かかりました。") End Sub Private Sub GetAllFiles(ByVal sourDirectory As String) '指定フォルダー以下サブフォルダー内も含む全ファイルを列挙する自作関数     Dim fs As String() = System.IO.Directory.GetFiles(sourDirectory)     Dim f As String     Dim FolderName As String = sourDirectory     If FolderName.EndsWith("\") = False Then         FolderName &= "\"     End If     'フォルダー内のファイルを列挙     For Each f In fs         'ファイルのフルパスを取得してリストボックスに表示         ListBox1.Items.Add(FolderName & System.IO.Path.GetFileName(f))     Next     Dim ds As String() = System.IO.Directory.GetDirectories(sourDirectory)     Dim d As String     'サブフォルダーがある間処理を繰り返す     For Each d In ds         GetAllFiles(d)     Next End Sub

２．

３．

４．

５．

６．

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