利用.NET Directory类轻松进行目录管理

Imports System.IO

Module Module1

Sub Main()

Dim subDirs() As String

Dim i As Integer

Dim dtCreated As DateTime

Dim dtAccessed As DateTime

Dim dtWrite As DateTime

Try
subDirs = Directory.GetDirectories("c:\")

For i = 0 To subDirs.GetUpperBound(0)
dtCreated = Directory.GetCreationTime(subDirs(i))
dtAccessed = Directory.GetLastAccessTime(subDirs(i))
dtWrite = Directory.GetLastWriteTime(subDirs(i))
Console.WriteLine("Subdirectory {0}", subDirs(i))
Console.WriteLine("Created: {0}", dtCreated.ToString())
Console.WriteLine("Last accessed: {0}", dtAccessed.ToString())
Console.WriteLine("Last changed: {0}", dtWrite.ToString())
Directory.SetLastAccessTime(subDirs(i), DateTime.Now)

Next i

Catch e As IOException
Console.WriteLine("Exception {0}", e.Message.ToString())

End Try

End Sub

End Module