ASP移动文件夹

ASP移动文件夹 例1:想把当前目录下的a文件夹，移动到当前目录下的b文件夹下:MoveFolder("a","b/a") ‘例2:想把当前目录下的a文件夹，移动到当前目录下的b文件夹下并改名为c: MoveFolder("a","b/c") ‘例2:想把当前目录下的a文件夹，改名成b:MoveFolder("a","b") Public Function MoveFolder(Byval sFolder,Byval nFolder) if sFolder="" or nFolder="" then MoveFolder="参数错误" : Exit Function On Error Resume Next Dim objFSO err=0 Folder=Server.MapPath(sFolder) Folder1=Server.MapPath(nFolder) Set objFSO = Server.CreateObject("Scripting.FileSystemObject") objFSO.MoveFolder Folder,Folder1 Set objFSO = Nothing MoveFolder = Err.Description if err=0 then MoveFolder = "文件夹 " & sFolder & " 已经移动到 " & nFolder End Function 若将代码中的:objFSO.MoveFolder改为objFSO.MoveFile则为对文件操作。 其中包括:提取文件夹信息、创建文件夹、删除文件夹、复制文件夹、移动文件夹等。下面 就具体来看。 一、fso.GetFolder 一看就明白，是提取文件夹了。那具体是提取哪个文件夹呢,后面肯定要跟一个文件夹 的路径。提取出来了再来显示该文件夹相关信息呢,是不是有要具体提取下去。所以，看程 序: 1，getfldr.asp <%Set fso = CreateObject("Scripting.FileSystemObject")Set fldr = fso.GetFolder("c:\Program Files")Response.Write "父文件夹名字是:" & fldr & "
"If fldr.IsRootFolder = True Then Response.Write "该文件夹是一根文件夹" & "
"Else Response.Write "该文件夹不是根文件夹" & "
" End IfResponse.Write "驱动器名字是: " & fldr.Drive & "
"%> 首先建立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 "已经建立了"&fileEnd SubSub DeleteAFolder(file) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFolder(file) response.write "已经删除了"&fileEnd 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%>

---

需要注意的是:删除并不会提示“确认要放入回收站”这项。这点你需要谨慎处理，特别是对你的系统文件夹。 四、fso.MoveFolder 主要作用是进行文件夹的移动，相当于剪切粘贴动作。 5，movefldr.asp <%Set fso = CreateObject("Scripting.FileSystemObject")fso.CreateFolder ("c:\cnbruce")fso.MoveFolder "c:\cnbruce", "C:\Program Files\"%>查看cnbruce文件夹有没有移动过来 格式:fso.MoveFolder "被移动的文件夹","移动到的文件夹" 本程序先是在C盘下建立了cnbruce文件夹，然后将其移动到C:\Program Files\文件夹下面。 不过同样需要注意的是你的系统文件夹不能乱移动。 五、fso.CopyFolder 主要作用:将文件夹从某位置复制到另一位置。 6，copyfldr.asp <%Set fso = CreateObject("Scripting.FileSystemObject")fso.CopyFolder "c:\Program Files\cnbruce", "c:\"%>查看cnbruce文件夹有没有复制过来 该程序是建立在上一movefldr.asp的执行结果基础之上来完成复制到C盘根目录下的。(话比较长-_-!) 当然，其拷贝也是将该文件夹包括里面所以子文件夹和文件统统拷贝。