参照元情報ファイルとディレクトリの操作の作成は（Visual Basic ガイド ツアー）
「ファイルとディレクトリの操作」にジャンプする
作成方法の詳細は上記を参照願います。
ファイルとディレクトリの操作の完成ファイルバイナリ ファイルを読み取るの解説とおりに作業を実施すると、プロジェクトファイル群が完成しますが、若干の修正を加えて作成しました。
完成ファイルは以下からダウンロードできます。
ダウンロード後は解凍してから使用してください。
[ ファイルとディレクトリの操作]をダウンロードする。解凍すると「FileExplorer」フォルダーがあります。
注（１）「FileExplorer」フォルダーの「FileExplorer.sln」ファイルをダブルクリックすると「Microsoft Visual Basic 2010 Express」が起動します。
注（２）メニューの「ウインド」＿「ウインドレイアウトのリセット」で標準に戻ります。
注（３）「ソリューションエクスプローラ」ウインドウ内の「Form1.vb」をダブルクリックすると「デザイン」が表示されます。
注（４）メニューの「表示」＿「コード」を選択するとコードが表示されます。
注（５）「FileExplorer.sln」の動作確認は「デバッグ」＿「デバッグ開始」で実行します。デバッグ機能を用いて動作確認を行います。
FileExplorerの実行（１）「Microsoft Visual Basic 2010 Express」のデバッグ機能を使用します。
（２）「デバッグ」＿「デバッグ開始」を選択します。
（３）操作画面が表示されます。
（４）実行ボタンを押します。
（５）ファイルリストを作成するフォルダーを選択してOKボタンを押します。
（６）保存場所と保存ファイル名を設定してOKボタンを押します。
（７）指定ファイルにファイルリストが保存されます。
新規プロジェクトの作成（１）新規プロジェクト
新規プロジェクトを作成すると「デザイナー」にはForm1が自動生成されます。
（２） Formコード
Public Class Form1
End Class
が自動生成されます。
（３） パーツレイアウト
Form1にButton、FolderBrowserDialog、SaveFileDialogをツールボックスから設定します。
SaveFileDialogの「Filterを(*.txt)|*.txt」に設定します。
Public Class Form1の全コード
Public Class Form1
Private Sub browseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles browseButton.Click
Dim i As Integer 'カウント変数生成
'FolderBrowserDialogを開く
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
'変I数fileNamesをSystem.Collections.ObjectModel.ReadOnlyCollection(Of String)型で生成
Dim fileNames As System.Collections.ObjectModel.ReadOnlyCollection(Of String) _
= My.Computer.FileSystem.GetFiles(FolderBrowserDialog1.SelectedPath, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
'変I数OutTextをString型で生成
Dim OutText As String = "Size:bytes " & vbTab & "Modified: " & vbTab & "File: " & vbCrLf
'fileNames.Count - 1まで繰り返し
For i = 0 To fileNames.Count - 1
'変I数thisFileをSystem.IO.FileInfo型で生成
Dim thisFile As System.IO.FileInfo = My.Computer.FileSystem.GetFileInfo(fileNames(i))
'変I数OutTextにSizeとModifiedとFileNameを加算
OutText = OutText & thisFile.Length.ToString & vbTab & thisFile.LastWriteTime.ToString & vbTab & thisFile.FullName & vbCrLf
Next i
'SaveFileDialogを開く
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
'OutTextの内容をファイルに出力
My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, OutText, append:=False)
End If
End If
End Sub
End Class
コードの解説（１）FolderBrowserDialog1.ShowDialog()は）FolderBrowserDialogを開きます。
（２）Dim fileNames As System.Collections.ObjectModel.ReadOnlyCollection(Of String) _
= My.Computer.FileSystem.GetFiles(FolderBrowserDialog1.SelectedPath, FileIO.SearchOption.SearchAllSubDirectories, "*.*")はちょっと長いコードです。変I数fileNamesをSystem.Collections.ObjectModel.ReadOnlyCollection(Of String)型で生成します。初期値はMy.Computer.FileSystem.GetFiles（）で選択したフォルダー内の全ファイルリストとなります。
（３）Dim OutText As String = "Size:bytes " & vbTab & "Modified: " & vbTab & "File: " & vbCrLfは出力文字列の1行目となります。
（４）Dim thisFile As System.IO.FileInfo = My.Computer.FileSystem.GetFileInfo(fileNames(i))は変I数thisFileをSystem.IO.FileInfo型で生成します。初期値はMy.Computer.FileSystem.GetFileInfo(fileNames(i))となります。
（５）OutText = OutText & thisFile.Length.ToString & vbTab & thisFile.LastWriteTime.ToString & vbTab & thisFile.FullName & vbCrLfは変I数OutTextにSizeとModifiedとFileNameを加算します。2行目以降となります。
（６）SaveFileDialog1.ShowDialog() はaveFileDialogを開きます。
（７） My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, OutText, append:=False)はOutTextの内容をファイルに出力します。
感想：このプログラムは、フォルダー内のファイルの参照方法とファイル情報の参照方法を簡潔に示しています。複雑に階層になったフォルダーに保存されているファイルを手作業で探すのは面倒な作業です。
学習用のサンプルプログラムですが、意外と実用性があります。
１２章：チュートリアル11:印刷とレポート の作成に行く。