'C:\vb\以下のファイル・フォルダをすべて取得。 Dim files() As String = System.IO.Directory.GetFiles( _ "C:\vb\", "*", System.IO.SearchOption.AllDirectories) 'filesの要素数を取得。 Dim count As Integer = files.Length 'すべてのファイルの更新日時をListBoxに出力。 For i = 0 To count - 1 Dim opnFile As New IO.FileInfo("C:\Windows\Prefetch\" + files(i)) ListBox1.Items.Add(opnFile.LastWriteTime) Next
Dim opnFile As New IO.FileInfo("C:\Windows\Prefetch\" + files(i))