 |
|
Main Menu
|
|
|
Misc |
 |
|
Amazon |
 |
|
Links |
 |
|  |
| |
<%@Page
Language="VB" %>
<%@ Import Namespace="System.IO"
%>
<script language="VB" runat="server">
Sub Page_Load(sender as Object, e as
EventArgs)
Dim strFiles as String()
Dim objFile as System.IO.FileInfo
Dim i as integer
strFiles = System.IO.Directory.GetFiles(Server.MapPath("/"),"*.*")
for i = 0 to strFiles.Length - 1
objFile = new System.IO.FileInfo(strFiles(i))
Response.Write("Name : " &
objFile.Name() & "<br>")
Response.Write("Extension : "
& objFile.Extension() & "<br>")
Response.Write("Length : "
& Cstr(objFile.Length) & "<br>")
Response.Write("Creation Date :
" & Cstr(objFile.CreationTime)
& "<br>")
Response.Write("<br>")
next
Response.End
End Sub
</script> |
|
|
| |
|
|
|
|
Software |
 |
| 
|