那下面就采用一个通用程序来灵活应变下。
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玩出心跳出来了。