Stream File VB.Net Tutorial

Option Strict On
Imports System.Collections.ObjectModel
Imports System.IO
Public Module FileSystem
   Public Sub Main()
      Dim dirPath As String = "c:\\"
      If String.IsNullOrEmpty(dirPath) Then Exit Sub
      If Not Directory.Exists(dirPath) Then Exit Sub
      
      Dim dirs As ReadOnlyCollection(Of String) = My.Computer.FileSystem.GetDirectories(dirPath)
      For Each dir As String In dirs
         Dim dirInfo As DirectoryInfo = New DirectoryInfo(dir)
         Console.WriteLine("{0} : Created {1}", dirinfo.Name,dirInfo.CreationTime)
      Next
   End Sub
End Module
Documents and Settings : Created 27/08/2006 3:16:44 PM
Java_Dev : Created 28/08/2006 5:04:26 PM
oracle : Created 28/08/2006 7:04:13 PM
Program Files : Created 27/08/2006 3:20:18 PM
RECYCLER : Created 28/08/2006 7:30:41 PM
System Volume Information : Created 27/08/2006 3:16:44 PM
SYSTEM.SAV : Created 27/08/2006 11:01:08 PM
Temp : Created 28/08/2006 7:19:38 PM
WINDOWS : Created 27/08/2006 3:07:16 PM