日期:2010-08-04  浏览次数:20938 次

     操作完驱动器,接着就是来操作文件夹了。其中包括:提取文件夹信息、创建文件夹、删除文件夹、复制文件夹、移动文件夹等。下面就具体来看。

    一、fso.GetFolder

    一看就明白,是提取文件夹了。那具体是提取哪个文件夹呢?后面肯定要跟一个文件夹的路径。提取出来了再来显示该文件夹相关信息呢?是不是有要具体提取下去。所以,看程序:

    1,getfldr.ASP

  <%Set fso = CreateObject("Scripting.FileSystemObject")
  Set fldr = fso.GetFolder("c:\Program Files")
  Response.Write "父文件夹名字是:" & fldr & "<br>"
  If fldr.IsRootFolder = True Then
  Response.Write "该文件夹是一根文件夹" & "<br>"
  Else
  Response.Write "该文件夹不是根文件夹" & "<br>"
  End If
  Response.Write "驱动器名字是:" & fldr.Drive & "<br>"%>

    首先建立FSO组件的连接是必不可少的啦,然后Set fldr = fso.GetFolder("c:\Program Files")设定fldr对象被赋值,以作下面程序的引用。

    fldr.IsRootFolder即为判断该文件夹是否为一根文件夹,值为布尔值(true or false);fldr.Drive则显示该文件夹所在的驱动器号了。

    二、fso.CreateFolder

    下面比较让人激动的是通过ASP建立文件夹了,你可以在你的权力范围内任意位置建立任意文件夹。

    2,creatfldr.asp

  <%Set fso = CreateObject("Scripting.FileSystemObject")
  fso.CreateFolder ("c:\cnbruce")
  Response.Write "文件夹名为" & fso.GetBaseName("c:\cnbruce")%>

    执行程序,应该发现C盘多出了cnbruce文件夹,fso.GetBaseName则是提取文件夹名。

    三、fso.DeleteFolder

    通过ASP可以建立了文件夹,则同样可以删除文件夹。

    3,delfldr.asp

  <%Set fso = CreateObject("Scripting.FileSystemObject")
  fso.DeleteFolder("c:\cnbruce")
  Response.Write "文件夹已删除"%>

    发现刚建立的cnbruce文件夹确实已被删除。
   
    那下面就采用一个通用程序来灵活应变下。

    4,mainflr.asp

  <%Sub CreateAFolder(file)
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  fso.CreateFolder(file)
  response.write "已经建立了"&file
  End Sub
  Sub DeleteAFolder(file)
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  fso.DeleteFolder(file)
  response.write "已经删除了"&file
  End Sub%>
  <%subname=request.form("submit")
  create=request.form("create")
  del=request.form("del")
  if subname<>"" then
   if create<>"" then
   call CreateAFolder(""&create&"")
   end if
   if del<>"" then
   call DeleteAFolder(""&del&"")
   end if
  end if%>
   <form action="mainflr.asp" method="post">
   <input name="create">
   <input type="submit" value="建立" name="submit">
   </form>
   <hr>
   <form action="mainflr.asp" method="post"><input name="del">
   <input type="submit" value="删除" name="submit">
   </form>

    需要注意的是:删除并不会提示“确认要放入回收站”这项。这点你需要谨慎处理,特别是对你的系统文件夹。