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