asp下利用fso实现文件夹或文件移动改名等操作函数

时间:2021-10-22 02:27:51

asp利用fso实现文件的移动

  1. functionmovefiles(sFolder,dFolder) 
  2.  
  3. onerrorresumenext 
  4.  
  5. dimfso 
  6.  
  7. setfso=server.createobject("scripting.filesystemobject"
  8.  
  9. iffso.folderexists(server.mappath(sFolder))andfso.folderexists(server.mappath(dFolder))then 
  10.  
  11. fso.copyfolderserver.mappath(sFolder),server.mappath(dFolder) 
  12.  
  13. movefiles=true 
  14.  
  15. else 
  16.  
  17. movefiles=false 
  18.  
  19. setfso=nothing 
  20.  
  21. callalertbox("系统没有找到指定的路径["&sFolder&"]!",2) 
  22.  
  23. endif 
  24.  
  25. setfso=nothing 
  26.  
  27. endfunction 

asp修改文件夹名称

  1. functionrenamefolder(sFolder,dFolder) 
  2.  
  3. onerrorresumenext 
  4.  
  5. dimfso 
  6.  
  7. setfso=server.createobject("scripting.filesystemobject"
  8.  
  9. iffso.folderexists(server.mappath(sFolder))then 
  10.  
  11. fso.movefolderserver.mappath(sFolder),server.mappath(dFolder) 
  12.  
  13. renamefolder=true 
  14.  
  15. else 
  16.  
  17. renamefolder=false 
  18.  
  19. setfso=nothing 
  20.  
  21. callalertbox("系统没有找到指定的路径["&sFolder&"]!",2) 
  22.  
  23. endif 
  24.  
  25. setfso=nothing 
  26.  
  27. endfunction 

asp检查文件夹是否存在

  1. functioncheckfolder(sPATH) 
  2.  
  3. onerrorresumenext 
  4.  
  5. dimfso 
  6.  
  7. setfso=server.createobject("scripting.filesystemobject"
  8.  
  9. iffso.folderexists(server.mappath(sPATH))then 
  10.  
  11. checkfolder=true 
  12.  
  13. else 
  14.  
  15. checkfolder=false 
  16.  
  17. endif 
  18.  
  19. setfso=nothing 
  20.  
  21. endfunction 

asp检查文件是否存在

  1. functioncheckfile(sPATH) 
  2.  
  3. onerrorresumenext 
  4.  
  5. dimfso 
  6.  
  7. setfso=server.createobject("scripting.filesystemobject"
  8.  
  9. iffso.fileexists(server.mappath(sPATH))then 
  10.  
  11. checkfile=true 
  12.  
  13. else 
  14.  
  15. checkfile=false 
  16.  
  17. endif 
  18.  
  19. setfso=nothing 
  20.  
  21. endfunction 

asp创建文件夹

  1. functioncreatedir(sPATH) 
  2.  
  3. dimfso,pathArr,i,path_Level,pathTmp,cPATH 
  4.  
  5. onerrorresumenext 
  6.  
  7. sPATH=replace(sPATH,"\","/") 
  8.  
  9. setfso=server.createobject("scripting.filesystemobject"
  10.  
  11. pathArr=split(sPATH,"/"
  12.  
  13. path_Level=ubound(pathArr) 
  14.  
  15. fori=0topath_Level 
  16.  
  17. ifi=0thenpathTmp=pathArr(0)&"/"elsepathTmp=pathTmp&pathArr(i)&"/" 
  18.  
  19. cPATH=left(pathTmp,len(pathTmp)-1) 
  20.  
  21. ifnotfso.folderexists(cPATH)thenfso.createfolder(cPATH) 
  22.  
  23. next 
  24.  
  25. setfso=nothing 
  26.  
  27. iferr.number<>0then 
  28.  
  29. err.clear 
  30.  
  31. createdir=false 
  32.  
  33. else 
  34.  
  35. createdir=true 
  36.  
  37. endif 
  38.  
  39. endfunction 

删除文件夹,这里是删除系统中栏目的文件夹

  1. functiondelclassfolder(sPATH) 
  2.  
  3. onerrorresumenext 
  4.  
  5. dimfso 
  6.  
  7. setfso=server.createobject("scripting.filesystemobject"
  8.  
  9. iffso.folderexists(server.mappath(sPATH))then 
  10.  
  11. fso.deletefolder(server.mappath(sPATH)) 
  12.  
  13. endif 
  14.  
  15. setfso=nothing 
  16.  
  17. endfunction 

删除新闻内容文件

  1. functiondelnewsfile(sPATH,filename) 
  2.  
  3. onerrorresumenext 
  4.  
  5. dimfso,tempArr,cPATH,ePATH,i:i=0 
  6.  
  7. setfso=server.createobject("scripting.filesystemobject"
  8.  
  9. sPATH=sPATH&filename&site_extname 
  10.  
  11. iffso.fileexists(server.mappath(sPATH))then 
  12.  
  13. fso.deletefile(server.mappath(sPATH)) 
  14.  
  15. while(i<>-1) 
  16.  
  17. i=i+1 
  18.  
  19. ePATH=replace(sPATH,filename&".",filename&"_"&i+1&"."
  20.  
  21. iffso.fileexists(server.mappath(ePATH))then 
  22.  
  23. fso.deletefile(server.mappath(ePATH)) 
  24.  
  25. else 
  26.  
  27. i=-1 
  28.  
  29. endif 
  30.  
  31. wend 
  32.  
  33. endif 
  34.  
  35. endfunction