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

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