检查当前目录下是否存在指定的文件,如果存在就重新命名
当前位置:点晴教程→知识管理交流
→『 技术文档交流 』
<%[br]function judgefileexit(strfilename)[br]dim objfso,objfile,objfj[br]dim strfilepath[br]dim blfj[br]dim intflag[br]intflag=0[br]set objfso=createobject("scripting.filesystemobject")[br]strfilepath=server.mappath("./")[br]if right(strfilepath,1)<>"/" or right(strfilepath,1)<>""" then[br]strfilepath=strfilepath&"""[br]end if[br]blfj=objfso.fileexists(strfilepath&strfilename)[br]do while blfj=true[br]intflag=intflag+1[br]blfj=objfso.fileexists(strfilepath &intflag&strfilename)[br]loop[br]if intflag=0 then[br]judgefileexit= strfilename[br]else[br]judgefileexit=intflag&strfilename[br]end if [br]set objfso=nothing[br]end function[br]response.write judgefileexit("22.htm")[br]%>
该文章在 2010/7/5 0:14:30 编辑过 |
关键字查询
相关文章
正在查询... |