C# と VB.NET の質問掲示板

■No26347 (リストボックス さん) に返信
> ディレクトリ内に存在する画像ファイルや動画ファイルの名前と拡張子の二つを
> リストボックスに追加する方法を教えていただきたいです


'表示したいファイルの条件リスト
Dim ext As New List(Of String)()
ext.Add("*.bmp")
ext.Add("*.png")
ext.Add("*.jpg")
ext.Add("*.jpeg")


With My.Computer.FileSystem
  '表示したいフォルダ
  Dim folder As String = .SpecialDirectories.MyDocuments

  '列挙して、それを ListBox に表示
  ListBox1.DataSource = (From d In .GetFiles(folder, _
    FileIO.SearchOption.SearchAllSubDirectories, _
    ext.ToArray()) Select d.SubString(folder.Length)).ToList()
End With