发文章
发文工具
撰写
网文摘手
文档
视频
思维导图
随笔
相册
原创同步助手
其他工具
图片转文字
文件清理
AI助手
留言交流
<% 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") %>
来自: cyx_188 > 《asp》
0条评论
发表
请遵守用户 评论公约
自动化FSO方法
Dim objFso'' creating the file system objectSet objFso = CreateObject ("Scripting.FileSystemObject") '' Create a new txt file '' Parameters:'' Fi...
如何查找和替换文本文件中的文本?
如何查找和替换文本文件中的文本?Const ForReading = 1Const ForWriting = 2Set objFSO = CreateObject("Scripting.FileSystemObject")Set objFile = objFSO.OpenTextFile("C:\Scripts...
用vbs删除前一天创建的备份文件
用vbs删除前一天创建的备份文件问: 您好,脚本专家!strDay = Day(dtmYesterday) If Len(strDay) = 1 Then strDay = "0" &strDay End If.以下脚本(今天暂且不对其进行讨论)将从名为 a...
获得文件后缀
获得文件后缀。VC获取文件后缀名。1。CString GetSuffix(CString strFileName) { return strFileName.Right(strFileName.GetLength()-strFileName.ReverseFind(''.'')-1);} 2...
vba dir 判断文件是否存在
检查文件或文件夹是否存在(Dir 函数) Dir函数,返回文件或者文件夹名称,语法如下:Dir[(pathname[, attributes])]Dir函数的两个参数都是可选的,pathname是文件或文件夹名称,对于参数attribut...
从Excel中运行PPT
从Excel中运行PPT.在宏中已放置了注释,以解释代码在执行过程中的作用,并指出可以在何处调整PowerPoint演示文稿的名称、路径位置和幻灯片放映时间。strFilePathAndName = strFilePath &strFileNam...
C#
Google Map API应用例子源代码(已修正) - 李华顺的博客 - 博客园
//去除事件var GoogleMapRemoveEvent = function(myMap,eventName){ GEvent.removeListener(clickListener);};//在指定坐标上显示tip提示var GoogleMapShowTip = function(myMap,point,text){ my...
VC中INI文件读写 - 平淡才真实 - JavaEye技术网站
VC中INI文件读写 - 平淡才真实 - JavaEye技术网站。在VC程序中利用系统提供的GetPrivateProfileString及WritePrivateProfileString函数直接读写系统配置ini文件(指定目录下的Ini文件)//获取文本框内容...
微信扫码,在手机上查看选中内容