现在的位置: 首页 > 综合 > 正文

用ASP对文件夹操作

2013年10月13日 ⁄ 综合 ⁄ 共 2671字 ⁄ 字号 评论关闭

原文地址:http://publishblog.blogdriver.com/blog/tb.b?diaryID=983925

其中包括:提取文件夹信息、创建文件夹、删除文件夹、复制文件夹、移动文件夹等。下面就具体来看  一、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 ifresponse.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 "已经建立了"&fileend subsub deleteafolder(file)  dim fso  set fso = createobject("scripting.filesystemobject")  fso.deletefolder(file)  response.write "已经删除了"&fileend 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>
  需要注意的是:删除并不会提示“确认要放入回收站”这项。这点你需要谨慎处理,特别是对你的系统文件夹。

  四、fso.movefolder
  主要作用是进行文件夹的移动,相当于剪切粘贴动作。

  5,movefldr.asp

<%set fso = createobject("scripting.filesystemobject")fso.createfolder ("c:/cnbruce")fso.movefolder "c:/cnbruce", "c:/program files/"%><a href="c:/program files/">查看cnbruce文件夹有没有移动过来</a>
  格式:fso.movefolder "被移动的文件夹","移动到的文件夹"

  本程序先是在c盘下建立了cnbruce文件夹,然后将其移动到c:/program files/文件夹下面。

  不过同样需要注意的是你的系统文件夹不能乱移动。

  五、fso.copyfolder
  主要作用:将文件夹从某位置复制到另一位置。
  6,copyfldr.asp

<%set fso = createobject("scripting.filesystemobject")fso.copyfolder "c:/program files/cnbruce", "c:/"%><a href="c:/">查看cnbruce文件夹有没有复制过来</a>
  该程序是建立在上一movefldr.asp的执行结果基础之上来完成复制到c盘根目录下的。(话比较长-_-!)

  当然,其拷贝也是将该文件夹包括里面所以子文件夹和文件统统拷贝。

  到最后再试着将c:/program files/cnbruce和c:/cnbruce两个文件夹进行删除掉吧。

  不过,继续提醒你:不要写错了,比如写成c:/program files,那你就惨了:这叫玩命,学asp玩出心跳出来了 

抱歉!评论已关闭.