分享
 
 
 

ASP编程入门进阶(十七):FSO组件之文件夹操作

王朝asp·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

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

一、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文件夹确实已被删除。

注意,有时需要删除文件夹,而该文件夹不存在时,会出现程序逻辑性错误。则应先判断文件夹的状态。

<%

dir=server.mappath("cnbruce")

Set fso = CreateObject("Scripting.FileSystemObject")

if (fso.FolderExists(dir)) then

fso.DeleteFolder(dir)

response.write("cnbruce文件夹已经删除")

else

fso.CreateFolder(dir)

response.write("cnbruce文件夹已经建立")

end if

%>

那下面就采用一个通用程序来灵活应变下。

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>

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

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

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

然后接下来就是更微妙的:FSO对文件的操作。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有