您所在的位置:小祥子 » 编程 » ASP » 正文

ASP移动文件夹以及文件的方法

时间:2015-02-16 编辑:本站 来源:本站原创

移动文件夹以及移动文件的方法函数

使用方法

moveFolder("要移动的文件夹",“新建的文件夹”)

moveFile("移动的文件","移动到哪里")

代码如下

'移动文件夹
Function moveFolder(oldFolder,newFolder)
 dim voldFolder,vnewFolder
 voldFolder = oldFolder
 vnewFolder = newFolder
 on error resume next
 if voldFolder <> vnewFolder then
  voldFolder=server.mappath(oldFolder)
  vnewFolder=server.mappath(newFolder)
  if not objFso.FolderExists(vnewFolder) then createFolder newFolder,"folderdir"
  if  objFso.FolderExists(voldFolder)  then  objFso.CopyFolder voldFolder,vnewFolder : objFso.DeleteFolder(voldFolder)
  if Err Then  moveFolder = false : errid = err.number : errdes = err.description:Err.Clear : echoErr err_moveFolder,errid,errdes else moveFolder = true
 end if
End Function
'移动文件
Function moveFile(ByVal src,ByVal target,Byval operType)
 dim srcPath,targetPath
 srcPath=Server.MapPath(src)
 targetPath=Server.MapPath(target)
 if isExistFile(src) then
  objFso.Copyfile srcPath,targetPath
  if operType="del" then  delFile src
  moveFile=true
 else
  moveFile=false
 end if
End Function

关键词:移动 文件夹 文件