fso.asp

来自「这是去年开发的中移鼎讯手机进销存系统 大家」· ASP 代码 · 共 27 行

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

%>