Mega Code Archive

 

Categories / VB.Net Tutorial / Stream File

 

Get Directory Creation Time

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