'フォルダ一覧取得
ListBox1.DataSource = My.Computer.FileSystem.GetDirectories( _
                                             "C:\", _
                                             FileIO.SearchOption.SearchTopLevelOnly, _
                                             "*hoge*")
'第1引数=対象フォルダ
'第2引数=FileIO.SearchOption.SearchTopLevelOnly:第1引数のフォルダのみ対象
'       =FileIO.SearchOption.SearchAllSubDirectories:第1引数のフォルダとサブフォルダ
'第3引数=抽出ワイルドカード