For Each と Split を組み合わせることで、各指定文字列に関連した繰り返し処理をコンパクトに記述できます。
以下の例では、各指定拡張子のファイルを、リストボックスに列挙します。
For Each ext In Split("htm,html", ",")
ListBox1.Items.AddRange System.IO.Directory.GetFiles("C:\files", "*." & ext, System.IO.SearchOption.AllDirectories ))
Next
|
