 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
操作完驱动器，接着就是来操作文件夹了。其中包括：提取文件夹信息、创建文件夹、删除文件夹、复制文件夹、移动文件夹等。下面就详细来看。 一、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文件夹确实已被删除。 那下面就采用一个通用程序来灵活应变下。 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 Filescnbruce", "c:" %> <a href="C:">查看cnbruce文件夹有没有复制过来</a> 该程序是建立在上一movefldr.asp的执行结果基础之上来完成复制到C盘根目录下的。（话比较长-_-!） 当然，其拷贝也是将该文件夹包括里面所以子文件夹和文件统统拷贝。 到最后再试着将c:Program Filescnbruce和c:cnbruce两个文件夹进行删除掉吧。 不过，继承提醒你：不要写错了，比如写成c:Program Files，那你就惨了：这叫玩命，学ASP玩出心跳出来了。 对文件夹的操作差不多了，是不是感到用处比较大？有训言：好东西是把双刃剑。正义和邪恶就只一线间，注重正规合理利用该组件。不过还有你放心的是，现在网站空间服务商对这权力已经限定得死死的了，你再怎么闹翻也不会冒泡的：） 然后接下来就是更微妙的：FSO对文件的操作。 返回类别: 教程 上一教程: 为你的ASP程序制作一个编译组件(中) 下一教程: 用ASP产生随即密码的程序 您可以阅读与"FSO组件之文件夹操作"相关的教程: · FSO组件之文件操作 · ASP编程入门进阶(十六)：FSO组件之驱动器操作 · 无组件上传图片之文件采用方案 · 对文件的操作--建立移动删除文件夹 · FSO组件操作实例技巧 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
