<form id="hz9zz"></form>
    • <form id="hz9zz"></form>
    

      

      <nobr id="hz9zz"></nobr>
      <form id="hz9zz"></form>
      3.   
          
      明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！
                   
        
                           
        
                        		  
        
                 
              
                
      檢查當前目錄下是否存在指定的文件，如果存在就重新命名
                
                  發表時間：2023-08-13             來源：明輝站整理相關軟件相關文章人氣：          
              
      [摘要]<%function JudgeFileExit(strFileName)Dim objFSO,objFile,objFJDim strFilePathDim blFJDim intFlagi...
      <%
      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")
      %>



              
              
                 
              
                                            
                              		       
                          
                           		  
        
                            
      
日韩精品一区二区三区高清