指定ドライブまたはフォルダ内の指定ファイルおよびフォルダを取得します。
フォルダ内のファイルを取得する
Dim dir As String = "C:\work"
'全てのファイルを取得
For Each filename As String In System.IO.Directory.GetFiles(dir)
MessageBox.Show(filename)
Next
'ワイルドカード指定でファイルを取得
For Each filename As String In System.IO.Directory.GetFiles(dir, "*.txt")
MessageBox.Show(filename)
Next
フォルダ内のフォルダを取得する
Dim sDirPath As String = "C:\work\"
For Each spath As String In System.IO.Directory.GetDirectories(sDirPath, "*")
MessageBox.Show(spath)
Next
フォルダ内のディレクトリとファイルを取得する
Dim sDirPath As String = "C:\work\"
For Each spath As String In System.IO.Directory.GetFileSystemEntries(sDirPath, "*")
MessageBox.Show(spath)
Next