''''记得IMPORTS SYSTEM.IO
Dim path As String
Dim dir As Directory
Dim Ctime As Date = Now
For Each path In dir.GetFiles("C:\Documents and Settings\zcjiang\Desktop\Other")
If File.GetCreationTime(path) < Ctime Then
Ctime = File.GetCreationTime(path)
End If
Next
TextBox1.Text = Ctime