FSO组件之驱动器操作

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

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

一、fso.GetDrive

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


Setfso=Server.CreateObject(Scripting.FileSystemObject)


注意CreateObject的内部再也不是MSWC了，而是Scripting。
那下面就可以通过fso来处理驱动器了。比如fso.GetDriveName提取驱动器名，fso.GetDrive同样提取标准驱动器名。比如：

1，fso.asp


<%Setfso=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


<%
Setfso=Server.CreateObject(Scripting.FileSystemObject)
Setdrv=fso.GetDrive(fso.GetDriveName(d:))
%>
该盘的空间大小：<%=drv.TotalSize%><br>
该盘的剩余空间大小：<%=drv.FreeSpace%>


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

3，drvinfo.asp


<%
FunctionShowDriveInfo(drvPath)
Dimfso,drv,s
Setfso=CreateObject(Scripting.FileSystemObject)
Setdrv=fso.GetDrive(fso.GetDriveName(drvPath))
s=驱动盘drv的卷标是：
s=sdrv.VolumeName<br>
s=s总计空间：drv.TotalSize<br>
s=s剩余空间：drv.FreeSpace<br>
s=s文件类型：drv.DriveType<br>
s=s文件系统：drv.FileSystem
Response.Writes
EndFunction
%>
<%
onerrorresumenext
whatpath=request.form(path)
ifwhatpath<>then
ShowDriveInfo(whatpath)
endif%>
<formaction=drvinfo.aspmethod=post>
<inputname=path>
<inputtype=submit>
</form>



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

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

下面就用一个程序遍历显示自己机器上所有驱动器的信息

4，showall.asp


<%
Functiontran(Driver)
SelectCaseDriver
Case0:tran=设备无法识别
Case1:tran=软盘驱动器
Case2:tran=硬盘驱动器
Case3:tran=网络硬盘驱动器
Case4:tran=光盘驱动器
Case5:tran=RAM虚拟磁盘
EndSelect
EndFunction
setfso=Server.CreateObject(Scripting.FileSystemObject)
%>

<tableborder=1width=100%>
<tr>
<td>盘符</td>
<td>类型</td>
<td>卷标</td>
<td>总计大小</td>
<td>可用空间</td>
<td>文件系统</td>
<td>序列号</td>
<td>是否可用</td>
<td>路径</td>
</tr>
<%
onerrorresumenext
Foreachdrvinfso.Drives
Response.Write<tr>
Response.Write<td>drv.DriveLetter</td>
Response.write<td>tran(drv.DriveType)</td>
Response.write<td>drv.VolumeName</td>
Response.write<td>FormatNumber(drv.TotalSize/1024,0)</td>
Response.write<td>FormatNumber(drv.Availablespace/1024,0)</td>
Response.write<td>drv.FileSystem</td>
Response.write<td>drv.SerialNumber</td>
Response.write<td>drv.IsReady</td>
Response.write<td>drv.Path</td>
Response.Write</tr>
Next
setfs=nothing
%>
</table>




恩，是不是很神气？那你可以对自己的机器调试，然后上传到自己的空间去调试，你会发现服务商会你进行了些设置：）
当然更神的还在后面面，比如对文件夹，对文件的操作（包括添加、修改和删除）。ps:你对驱动器是不能轻易添加删除的：）