ASP编程入门进阶(十六):FSO组件之驱动器操作
内容导读
互联网集市收集整理的这篇技术教程文章主要介绍了ASP编程入门进阶(十六):FSO组件之驱动器操作,小编现在分享给大家,供广大互联网技能从业者学习和参考。文章包含3787字,纯文字阅读大概需要6分钟。
内容图文
![ASP编程入门进阶(十六):FSO组件之驱动器操作](/upload/InfoBanner/zyjiaocheng/385/7d7ce396b93e47ddb07b56ff53dfebb2.jpg)
首先,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”表示“光盘驱动器”……
下面就用一个程序遍历显示自己机器上所有驱动器的信息
4,showall.asp
<% Function tran(Driver) Select Case Driver Case 0: tran="设备无法识别" Case 1: tran="软盘驱动器" Case 2: tran="硬盘驱动器" Case 3: tran="网络硬盘驱动器" Case 4: tran="光盘驱动器" Case 5: tran="RAM虚拟磁盘" End Select End Function set fso=Server.CreateObject("Scripting.FileSystemObject") %> <table border=1 width="100%"> <tr> <td>盘符</td> <td>类型</td> <td>卷标</td> <td>总计大小</td> <td>可用空间</td> <td>文件系统</td> <td>序列号</td> <td>是否可用</td> <td>路径</td> </tr> <% on error resume next For each drv in fso.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 set fs=nothing %> </table> |
http://www.gxlsystem.com/code/showall.asp
恩,是不是很神气?那你可以对自己的机器调试,然后上传到自己的空间去调试,你会发现服务商会你进行了些设置:)
当然更神的还在后面面,比如对文件夹,对文件的操作(包括添加、修改和删除)。ps:你对驱动器是不能轻易添加删除的:)
内容总结
以上是互联网集市为您收集整理的ASP编程入门进阶(十六):FSO组件之驱动器操作全部内容,希望文章能够帮你解决ASP编程入门进阶(十六):FSO组件之驱动器操作所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错,欢迎将互联网集市网站推荐给程序员好友。
内容备注
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 gblab@vip.qq.com 举报,一经查实,本站将立刻删除。
内容手机端
扫描二维码推送至手机访问。