ディレクトリ以下のファイル・フォルダをすべて取得

あるディレクトリ以下のファイルをすべてListViewやListBoxに表示させるものを作成したいのですが、どうすればよいのでしょうか？
VisualBasic2008を使っております。

No.1 ベストアンサー 回答者： redfox63 回答日時： 2008/08/07 07:07

Directoryクラスを使ってフォルダー名やファイル名を取得しましょう

Function GetFileNameOrSubFolderName( sPath as String) as String()
　　dim sNames as String() = Directory.GetFiles( sPath )
　　dim sFolders as String() = DIrectory.GetDirectories( sPath )
　　dim Results as String()
　　ReDim Results( sNames.Length + sFolders.Length -1 )
　　dim n as Integer
　　for n = 0 to sNames.Lenth -1
　　　　Resules( n ) = sName(n)
　　next
　　' フォルダー名の前後に[]を追加
　　for n = 0 to sFolders.Length - 1
　　　　Results( sName.Length + n ) = "[" & sFolders(n) & "]"
　　next
　　return Results
End Function
といった具合で取得して

ListBox1.Items.Clear()
for each ss as string in GetFileNameOrSubFolderName( "C:\Work" )
　　ListBox1.Items.add( ss )
next
といった具合でリストボックスなどに反映しましょう
# エラー処理などをしていませんので適宜修正してください