ASP学习之FSO组件操作实例技巧(1)

　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">

[1] [2] 下一页

复制本页网址和标题，发送给你QQ/Msn的好友一起分享

上一篇:实例：asp生成WORD文档

下一篇:ASP学习之FSO组件操作实例技巧(2)