<%@ Import Namespace="System.IO" %>
sub Page_Load(Sender as Object, e as EventArgs)
dim f as new FileInfo(Server.MapPath("test.aspx"))
dim dir as DirectoryInfo = f.Directory
lblMessage.Text += "Directory information
" & _
"Name: " & dir.Name & "
" & _
"Full name: " & dir.FullName & "
" & _
"Last access time: " & dir.LastAccessTime & _
"
" & _
"Last write time: " & dir.LastWriteTime & _
"
" & _
"Parent: " & dir.Parent.Name & "
"
end sub