手机站
网通分站
电信主站
密 码:
用户名:
热门关键字:  虚拟主机  cn域名  asd  ddd  域名注册
当前位置 : 主页>网络编程>Asp编程>列表

用ASP对文件夹操作

来源:互联网 作者:west263.com 时间:2008-02-23 点击:
西部数码-全国虚拟主机10强!40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!

  其中包括:提取文件夹信息、创建文件夹、删除文件夹、复制文件夹、移动文件夹等。下面就具体来看。

  一、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玩出心跳出来了。

文章整理:西部数码--专业提供域名注册虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

最新评论共有 0 位网友发表了评论
发表评论
评论内容:不能超过250字,需审核,请自觉遵守互联网相关政策法规。
用户名: 密码:
匿名
注册