|
|
|
|
检查当前目录下是否存在指定的文件，如果存在就重新命名
|
|
| | 检查当前目录下是否存在指定的文件，如果存在就重新命名 |
|
|
作者：佚名 来源：不详 点击数： 更新时间：2008-01-12【字体：小 大】 |
收藏到
|
| | 检查当前目录下是否存在指定的文件，如果存在就重新命名 | 本文作者：不详
所属分类：技巧与经验
加入时间：2004-11-5
点击次数：8328
| %
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")
%> |
|
|
|
发布人：admin
|
● 上一篇asp程序： 按下回车键指向下一个位置的一个函数
● 下一篇asp程序： 使用NextRecordset通过一个Connection输出多个select查询
|
| 【告诉好友】【打印本页】【关闭窗口】
|
|
今天是:2008-01-12
