<%@ Import Namespace="System.IO" %>
sub Page_Load(Sender as Object, e as EventArgs)
dim f as new FileInfo(Server.MapPath("test.aspx"))
lblMessage.Text = "File information
" & _
"Name: " & f.Name & "
" & _
"Path: " & f.DirectoryName & "
" & _
"Last access time: " & f.LastAccessTime & _
"
" & _
"Last write time: " & f.LastWriteTime & _
"
" & _
"Length: " & f.Length & " bytes"
end sub