ASP编程入门进阶（1）：FSO组件之驱动器操作 - ASP教程

首先，FSO是FileSystemObject的简称。当然也就是我们的俗称FSO组件了，该组件可以用来处理驱动器、文件夹以及文件。

它可以检测并显示出系统驱动器的信息分配情况；还能够创建、改变、移动和删除文件夹，并能探测一些给定的文件夹是否存在，若存在，还能提取出该文件夹的信息，如名称、被创建或最后一次修改的日期，等等。FSO还使得对文件的处理变得很容易。

一、fso.GetDrive

正如其它组件的建立一样，FSO的引用也必须建立连接。

Set fso=Server.CreateObject("Scripting.FileSystemObject")

注意CreateObject的内部再也不是MSWC了，而是Scripting。

那下面就可以通过fso来处理驱动器了。比如fso.GetDriveName提取驱动器名，fso.GetDrive同样提取标准驱动器名。比如：

1，fso.asp

<%Set fso=Server.CreateObject("Scripting.FileSystemObject")%>
<%=fso.GetDriveName("d:")%><br>
<%=fso.GetDrive("d:")%>

你会发现GetDriveName("d:")就是“d:”，而GetDrive("d:")则为标准的“D:”，所以我们一般这样写fso.GetDrive(fso.GetDriveName(drvPath))来提取某个具体的驱动盘。

二、drv.GetInfo

上面已经把某个特定的驱动器提取了，那接着是不是提取该驱动盘的具体信息。

2，drv.asp

<%
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set drv=fso.GetDrive(fso.GetDriveName("d:"))
%>该盘的空间大小：<%=drv.TotalSize%><br>

该盘的剩余空间大小：<%=drv.FreeSpace%>

以上只是提取的D盘驱动器的信息，来个通用的函数，继续分别测试自己的驱动吧。

3，drvinfo.asp

<%
Function ShowDriveInfo(drvPath)
Dim fso, drv, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set drv = fso.GetDrive(fso.GetDriveName(drvPath))
s = "驱动盘" & drv & "的卷标是："
s = s & drv.VolumeName & "<br>"
s = s & "总计空间：" & drv.TotalSize & "<br>"
s = s & "剩余空间：" & drv.FreeSpace & "<br>"
s = s & "文件类型：" & drv.DriveType & "<br>"
s = s & "文件系统：" & drv.FileSystem
Response.Write s
End Function
%>
<%
on error resume next
whatpath=request.form("path")
if whatpath<>"" then
ShowDriveInfo(whatpath)
end if%>
<form action="drvinfo.asp" method="post">
<input name="path">
<input type="submit">
</form>

其中的drv.TotalSize和drv.FreeSpace返回的是字节数，我们可以用FormatNumber()函数处理下。比如FormatNumber(Drive.TotalSize/1024,0)得到一眼就知磁盘多少G的值。

还有一个文件类型：drv.DriveType最多的时候是显示数值“2”，其实“2”就表示的“硬盘驱动器”，“1”表示“软盘驱动器”，“4”表示“光盘驱动器”……

（编辑：南平站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!