【下载文档:  asp下利用fso实现文件夹或文件移动改名等操作函数.txt 】

---

asp下利用fso实现文件夹或文件移动改名等操作函数
asp利用fso实现文件的移动function movefiles(sFolder,dFolder) on error resume next dim fso set fso = server.createobject("scripting.filesystemobject") if fso.folderexists(server.mappath(sFolder)) and fso.folderexists(server.mappath(dFolder)) then fso.copyfolder server.mappath(sFolder),server.mappath(dFolder) movefiles = true else movefiles = false set fso = nothing call alertbox("系统没有找到指定的路径[" & sFolder & "]!",2) end if set fso = nothing end function asp修改文件夹名称function renamefolder(sFolder,dFolder) on error resume next dim fso set fso = server.createobject("scripting.filesystemobject") if fso.folderexists(server.mappath(sFolder)) then fso.movefolder server.mappath(sFolder),server.mappath(dFolder) renamefolder = true else renamefolder = false set fso = nothing call alertbox("系统没有找到指定的路径[" & sFolder & "]!",2) end if set fso = nothing end function asp检查文件夹是否存在function checkfolder(sPATH) on error resume next dim fso set fso = server.createobject("scripting.filesystemobject") if fso.folderexists(server.mappath(sPATH)) then checkfolder = true else checkfolder = false end if set fso = nothing end function asp检查文件是否存在function checkfile(sPATH) on error resume next dim fso set fso = server.createobject("scripting.filesystemobject") if fso.fileexists(server.mappath(sPATH)) then checkfile = true else checkfile = false end if set fso = nothing end function asp创建文件夹function createdir(sPATH) dim fso,pathArr,i,path_Level,pathTmp,cPATH on error resume next sPATH = replace(sPATH,"\","/") set fso = server.createobject("scripting.filesystemobject") pathArr = split(sPATH,"/") path_Level = ubound(pathArr) for i = 0 to path_Level if i = 0 then pathTmp = pathArr(0) & "/" else pathTmp = pathTmp&pathArr(i) & "/" cPATH = left(pathTmp,len(pathTmp)-1) if not fso.folderexists(cPATH) then fso.createfolder(cPATH) next set fso = nothing if err.number <> 0 then err.clear createdir = false else createdir = true end if end function 删除文件夹，这里是删除系统中栏目的文件夹function delclassfolder(sPATH) on error resume next dim fso set fso = server.createobject("scripting.filesystemobject") if fso.folderexists(server.mappath(sPATH)) then fso.deletefolder(server.mappath(sPATH)) end if set fso = nothing end function 删除新闻内容文件function delnewsfile(sPATH,filename) on error resume next dim fso,tempArr,cPATH,ePATH,i:i = 0 set fso = server.createobject("scripting.filesystemobject") sPATH = sPATH & filename & site_extname if fso.fileexists(server.mappath(sPATH)) then fso.deletefile(server.mappath(sPATH)) while(i <> -1) i = i + 1 ePATH = replace(sPATH,filename & ".",filename & "_" & i + 1 & ".") if fso.fileexists(server.mappath(ePATH)) then fso.deletefile(server.mappath(ePATH)) else i = -1 end if wend end if end function