登陆

fso组件之文件夹操作

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


1,getfldr.ASP


<%
set fso = createobject("scripting.filesystemobject")
set fldr = fso.getfolder("c:\program files")
response.write "父文件夹名字是:" &amp; fldr &amp; "<br>"

if fldr.isrootfolder = true then
   response.write "该文件夹是一根文件夹" &amp; "<br>"
else
   response.write "该文件夹不是根文件夹" &amp; "<br>"
end if

response.write "驱动器名字是:" &amp; fldr.drive &amp; "<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 "文件夹名为" &amp; 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 "已经建立了"&amp;file
end sub

sub deleteafolder(file)
  dim fso
  set fso = createobject("scripting.filesystemobject")
  fso.deletefolder(file)
  response.write "已经删除了"&amp;file
end sub
%>
<%
subname=request.form("submit")
create=request.form("create")
del=request.form("del")
if subname<>"" then
  if create<>"" then
    call createafolder(""&amp;create&amp;"")
  end if
  if del<>"" then
    call deleteafolder(""&amp;del&amp;"")
  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玩出心跳出来了。

对文件夹的操作差不多了,是不是感到用处比较大?有训言:好东西是把双刃剑。正义和邪恶就只一线间,注意正规合理利用该组件。不过还有你放心的是,现在网站空间服务商对这权力已经限定得死死的了,你再怎么闹翻也不会冒泡的:)

Tags: ASP

« 上一篇 | 下一篇 »

相关文章