给大家帖个函数!检查当前目录下是否存在指定的文件,如果存在就重新命名。

作者:袖梨 2022-07-03
<%
    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")
%>

相关文章

精彩推荐