<%@ Page Language="VB" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System" %>
Public Sub Page_Load(Source As Object, Sender As EventArgs)
ListFileInfoLiteral.Text = ""
FileTextBox.Text = Server.MapPath("Default.aspx")
End Sub
Public Sub DisplayFileInfo(Source As Object, Sender As EventArgs)
Dim iFile As FileInfo
iFile = New FileInfo(FileTextBox.Text)
If iFile.Exists Then
Dim sb As New System.Text.StringBuilder(1000)
sb.Append("")
sb.Append("")
sb.Append("Name ")
sb.Append("" & iFile.Name & " ")
sb.Append(" ")
sb.Append("Path\Name ")
sb.Append("" & iFile.FullName & " ")
sb.Append(" ")
sb.Append("Extension ")
sb.Append("" & iFile.Extension & " ")
sb.Append(" ")
sb.Append("Size ")
sb.Append("" & iFile.Length & " bytes ")
sb.Append(" ")
sb.Append("Attributes ")
sb.Append("" & iFile.Attributes.ToString() & " ")
sb.Append(" ")
sb.Append("Creation Time ")
sb.Append("" & iFile.CreationTime & " ")
sb.Append(" ")
sb.Append("Last Accessed ")
sb.Append("" & iFile.LastAccessTime & " ")
sb.Append(" ")
sb.Append("Last Modified ")
sb.Append("" & iFile.LastWriteTime & " ")
sb.Append(" ")
ListFileInfoLiteral.Text = sb.ToString()
Else
ListFileInfoLiteral.Text = "The file does not exist"
End If
End Sub
Inquiring Information About a File
Type path\name of file and click the button.