asp FSO组件操作详解
来源:asp之家 时间:2009-03-20 18:32:00
FSO,正如UFO般令人激动、令人神往,当然更多的亦是让人欢喜让人忧。君不见某空间服务商广告:100MB空间只要60RMB/年,支持数据库,支持什么什么……一问不支持FSO,立马泄气。那FSO究竟是什么东西,它的力量又是如何巨大,其操作的原理又是怎的怎的呢?这次来个彻底的理解。
首先,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”表示“光盘驱动器”……
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
SQL server高级应用 收藏版
DIV+CSS常见错误及解决方法
网页的栅格系统设计
![](https://img.aspxhome.com/file/UploadPic/20089/19/2008919211857277s.jpg)
全新感受Oracle 9i
用户体验 保守的使用下拉菜单
Silverlight 3 Beta出来了
用户是如何浏览你的网站的
![](https://img.aspxhome.com/file/UploadPic/20105/3/eyetrack-74s.jpg)
用户体验设计答疑对话(半吊子和纯外行)
![](https://img.aspxhome.com/file/UploadPic/201011/30/p1030884-13s.jpg)
设计规范有谱么?
ASP XML制作菜单管理程序
5个CSS3技术实现设计增强
mysql 错误:ERROR 1045 (28000): Access deni
WEB前端开发规范文档
JavaScript游戏开发之键盘控制层的移动
![](https://img.aspxhome.com/file/UploadPic/20089/13/2008913193339114s.jpg)
对“关于购物车的想法”的一些回复
清除SQL被注入恶意病毒代码的语句
ORACLE 常用函数总结(80个)第1/2页
分类与类型的问题
![](https://img.aspxhome.com/file/UploadPic/20089/12/2008912131610841s.jpg)