|
FileObjects Part 3 by Steven Harper
Steven
Harper@ScapaSMD.com, Internet Developer
The file object can be used to examine the
disk as well as this script submitted by a site viewer, demonstrates.
filename=/learn/test/fileobjectsinfo.asp
<html><head>
<title>fileobjectsinfo.asp</title>
</head><body>
<%
disktoexamine="C:"
set fs = Server.CreateObject("Scripting.FileSystemObject")
set f = fs.GetDrive(disktoexamine)
Response.Write(" Root Folder : ")
Response.Write(f.RootFolder)
Response.Write("<BR>")
Response.Write(" Type of Drive : ")
if f.DriveType=2 then
Response.Write("Fixed")
end if
if f.DriveType=1 then
Response.Write("Removable")
end if
Response.Write("<BR>")
Response.Write(" File System : ")
Response.Write(f.FileSystem)
Response.Write("<BR>")
Response.Write(" Total Size on Server's C: ")
Response.Write(f.TotalSize)
Response.Write("<BR>")
Response.Write(" Drive Space on Server's C: ")
Response.Write(f.freespace)
Response.Write("<BR>")
Response.Write(" Serial Number : ")
Response.Write(f.SerialNumber)
set f=nothing
set fs=nothing
%>
</body></html>
|