ASP编程入门进阶（十七）：FSO组件之文件夹操作

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

一、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对文件的操作。

赞 (0)

相关推荐

  • ASP编程入门进阶（十七）：FSO组件之文件夹操作

    操作完驱动器,接着就是来操作文件夹了.其中包括:提取文件夹信息.创建文件夹.删除文件夹.复制文件夹.移动文件夹等.下面就具体来看. 一.fso.GetFolder一看就明白,是提取文件夹了.那具体是提取哪个文件夹呢?后面肯定要跟一个文件夹的路径.提取出来了再来显示该文件夹相关信息呢?是不是有要具体提取下去.所以,看程序:1,getfldr.asp <%Set fso = CreateObject("Scripting.FileSystemObject")Set fldr = fs

  • ASP编程入门进阶（十四）：Browser & Linking

    一.Browser Capabilities组件 该组件最主要的作用是:提取识别客户端浏览器的版本信息. 其原理是这样的:当客户端浏览器向服务器发送页面请求时,同时会自动发送一个User Agent HTTP标题,而该标题是一个声明浏览器及其版本的 ASCII 字符串.而Browser Capabilities组件就将User Agent映射到在文件Browscap.ini中所注明的浏览器 , 并通过BrowserType对象的属性来识别客户浏览器. 若该对象在 browscap.ini 文件中

  • ASP编程入门进阶（一）：安装配置服务器

    ASP编程入门进阶（一）：安装配置服务器

    本人的水平有限,难免有疏忽遗漏之处,还望大家批评指正,在此先谢过. ASP编程入门进阶(一):安装配置服务器 鉴于ASP脚本语言是在服务器端IIS或PWS中解释和运行,并可动态生成普通的HTML网页,然后再传送到客户端供浏览的这一特点.我们要在本机上进行调试,那就要求我们的个人电脑具有服务器的功能. 不要看到"服务器"三个字就感到担心:我的机子配置这么底,性能这么差,是不是不能配啊.放心!配个服务器,就是多装个软件,况且就自己一个人用,根本没有必要多虑.那具体的装个什么软件呢?刚才我们

  • ASP编程入门进阶（十三）：Ad & Content Rotator

    ASP的强大不仅仅局限于接受和显示的交互,更多的是运用ActiveX 组件进行更强大的Web应用. 那究竟ActiveX组件为何物?它又是如何运作的呢?其实ActiveX Server Components(ActiveX 服务器组件)是一个存在于 WEB 服务器上的文件,该文件包含执行某项或一组任务的代码,组件可以执行公用任务,这样就不必自己去创建执行这些任务的代码.很形象的一句话:运用组件直接采用别人经典的功能强大的程序.只不过这程序已被封装了的. 那具体ActiveX组件是如何产生.如何得

  • ASP编程入门进阶（十八）：FSO组件之文件操作（上）

    FSO中除了可以对驱动器.文件夹的操作以外,功能最强大的就是对文件的操作了.它可以用来记数.内容管理.搜索还可生成动态HTML页面等等. 一.fso.OpenTextFile无需多说,fso.OpenTextFile就是打开某个文件了,一般情况之下是打开的txt文本文件.所以首先我们先建立一个txt文件,然后通过FSO来读取其中的内容. 1,info.txt name:cnbrucesex:male 建立了该文件,下面再做个ASP页面,当然最好两个文件是在同一目录下. 2,opentxt.asp

  • ASP编程入门进阶（十六）：FSO组件之驱动器操作

    FSO,正如UFO般令人激动.令人神往,当然更多的亦是让人欢喜让人忧.君不见某空间服务商广告:100MB空间只要60RMB/年,支持数据库,支持什么什么--一问不支持FSO,立马泄气.那FSO究竟是什么东西,它的力量又是如何巨大,其操作的原理又是怎的怎的呢?这次来个彻底的理解. 首先,FSO是FileSystemObject的简称.当然也就是我们的俗称FSO组件了,该组件可以用来处理驱动器.文件夹以及文件. 它可以检测并显示出系统驱动器的信息分配情况:还能够创建.改变.移动和删除文件夹,并能探测

  • ASP编程入门进阶（十八）：FSO组件之文件操作（中）

    学会了FSO提取文件值,也学会了将信息输入到文件中,那下面就再来应用应用下. 不知道你有没有这样的习惯:看到一个文件,不自觉的右键选择用记事本打开.呵呵,几乎没有哪个文件是不可以的.所以现在,可以默认所有文件都是文本,只是后缀名不同而已:那么也就是说,现在可以提取任一文件的内容信息.OK,就来想象一下: 1,提取一个文件的路径(采用file按钮进行查找定位)2,将该路径文件打开,并读取所有行3,显示读取的信息 一.viewcode.asp <%Function ShowCode(filename

  • ASP编程入门进阶（十八）：FSO组件之文件操作（下）

    一,fso.GetFile提取文件相应的 File 对象 1,getfile.asp <%whichfile=Server.MapPath("cnbruce.txt")Set fso = CreateObject("Scripting.FileSystemObject")Set f1 = fso.CreateTextFile(whichfile,true)f1.Write ("This is a test.My Name is cnbruce.&qu

  • ASP编程入门进阶（二十）：ADO组件之显示数据记录

    ASP编程入门进阶（二十）：ADO组件之显示数据记录

    学习ASP的万里长征就快到终点了:等把ASP的ADO组件搞定.当然这也是最重要的一步,几乎前面所有的学习都是为了这个最终的目的.OK,下面就来详细系统地来一一掌握,步步为营,各个击破. 一,拥有数据库 可以这么说:静态页面和动态页面最大的区别就是采用了数据库.有关一个WEB程序采用数据库和不采用的优越性比较,就不去细细分析了,主要精力还是放在如何使用数据库,如何熟练运用数据库,如何更灵活地运用数据库等等--其中运用操作数据库主要是对数据库内容进行:显示.插入.修改.更新.查询和删除. 这些方法当

  • ASP编程入门进阶（七）：内置对象Server

    ASP编程入门进阶（七）：内置对象Server

    Server 对象提供对服务器上的方法和属性的访问 , 其中大多数方法和属性是作为实用程序的功能服务.(IIS HELP翻译)有了 Server 对象,你就可以在服务器上启动 ActiveX 对象例程,并使用 Active Server 服务提供象 HTML 和 URL 编码这样的函数.一,Script.ScriptTimeout在脚本运行超过一段时间之后,即作超时处理.服务器一般的默认脚本运行时间是90秒.你可以从"Internet信息服务"中"默认Web站点"的

随机推荐