ASP编程入门进阶(十六):FSO组件之驱动器操作
2023-06-13 09:13:52 时间
FSO,正如UFO般令人激动、令人神往,当然更多的亦是让人欢喜让人忧。君不见某空间服务商广告:100MB空间只要60RMB/年,支持数据库,支持什么什么……一问不支持FSO,立马泄气。那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=s&drv.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.asp"method="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>
http://www.cnbruce.com/code/showall.asp
恩,是不是很神气?那你可以对自己的机器调试,然后上传到自己的空间去调试,你会发现服务商会你进行了些设置:)
当然更神的还在后面面,比如对文件夹,对文件的操作(包括添加、修改和删除)。ps:你对驱动器是不能轻易添加删除的:)
首先,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=s&drv.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.asp"method="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>
http://www.cnbruce.com/code/showall.asp
恩,是不是很神气?那你可以对自己的机器调试,然后上传到自己的空间去调试,你会发现服务商会你进行了些设置:)
当然更神的还在后面面,比如对文件夹,对文件的操作(包括添加、修改和删除)。ps:你对驱动器是不能轻易添加删除的:)
相关文章
- Asp.net web.config customErrors 如何设置
- ASP超级小旋风
- 比较 MySQL 与 ASP 的区别(mysql和asp)
- ASP操作Oracle数据库(asp链接oracle)
- ASP构建Web应用MySQL必不可少(asp需要mysql)
- ASP编程连接MySQL之旅(asp连接mysql包)
- ASP连接MySQL的实现方式(asp文件连接mysql)
- 数据ASP解析MySQL中文数据实现无缝互联(asp接受mysql中文)
- 数据如何使用ASP操作MySQL数据库(asp怎么存取mysql)
- MySQL语句实现 ASP 程序开发精彩功能(asp mysql语句)
- ASP与MySQL结合提高操作权限(asp mysql 提权)
- ASP编程入门进阶(二十):ADO组件之显示数据记录
- ASP编程入门进阶(二十):ADO组件之删除数据记录
- asp取得用户真实IP,对代理地址仍然有效的函数
- asp代码实现检测组件是否安装的函数
- 比较不错的asp模板引终极讲解(WEB开发之ASP模式)
- asp下经常用到的代码
- ASP.NETWeb应用程序的安全解决方案浅析
- asp.net(C#)防sql注入组件的实现代码
- asp.net中穿透Session0隔离(一)
- 使用ASP.NETMVC4AsyncAction+jQuery实现消息通知机制的实现代码