繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 检查当前目录下是否存在指定的文件，如果存在就重新命名
- ASP
- ASP应用 用GetString来提高ASP的速度
- ASP怎样可以获得代码中第一张图片地址
- ASP开发经验谈 ASP开发10条经验总结
- 如何用ASP来获取客户端真实IP的地址？
- 用ASP实现就MP3曲目信息的操作全攻略
- ASP中连接数据库的错误解决新解决办法
- ASP后门之终极伪装
- ASP生成静态htm页面基本代码
- session在验证管理登陆时的使用方法
- asp当中判断函数一览
- IIS6.0 ASP 错误解析
- ASP与JSP的区别和联系
- 几种打开记录集方式的比较
- cookie和session机制之间的区别与联系
- ASP的含义、功能和选择
- ASP中巧用Response属性 -- contenttype
- ASP内置对象Request和Response的详解
- ASP错误大全
- 人文的ASP开发基础入门之简介
- ASP 3.0高级编程（十二）
ASP 中的 检查当前目录下是否存在指定的文件，如果存在就重新命名
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 61 ::
收藏到网摘: n/a
function JudgeFileExit(strFileName)
Dim objFSO,objFile,objFJ
Dim strFilePath
Dim blFJ
Dim intFlag
intFlag=0
set objFSO=CreateObject("Scripting.FileSystemObject")
strFilePath=server.MapPath("./")
if right(strFilePath,1)<>"/" or right(strFilePath,1)<>"\" then
strFilePath=strFilePath&"\"
end if
blFJ=objFSO.FileExists(strFilePath&strFileName)
do while blFJ=true
intFlag=intFlag+1
blFJ=objFSO.FileExists(strFilePath &intFlag&strFileName)
loop
if intFlag=0 then
JudgeFileExit= strFileName
else
JudgeFileExit=intFlag&strFileName
end if
set objFSO=nothing
end function
Response.Write JudgeFileExit("22.htm")
%>
评论 (0) All
