Public Function CheckAndCreateFolder(FolderName) fldr = Server.Mappath(FolderName) Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FolderExists(fldr) Then fso.CreateFolder(fldr) End If Set fso = Nothing End Function
查抄文件夹是否存在，不存在则建设文件夹，该函数无返回值。
例：CheckAndCreateFolder("ASP")
查抄当前目次下是否存在ASP文件夹，不存在则建设文件夹ASP ，缺点是不支持多级目次建设。
asp关于fso函数，文件与文件夹的相关操纵用获得
'//提供文件处理惩罚通用接口 Class FileSystemObject '/* ' * 成果描写:删除文件 ' * 输入参数：FileName——文件相对路径 '*/ Public Function DelFile(FileName) Dim getPath getPath="https://www.jb51.net/" SET Fso=Server.CreateObject("Scripting.FileSystemObject") getPath=Replace(getPath&FileName,"//","https://www.jb51.net/") if Fso.FileExists(Server.MapPath(getPath))=True then Fso.DeleteFile Server.mappath(getPath) End if Set Fso=Nothing End Function '/* ' * 成果描写:判定路径是否存在，如不存在则建设 ' * 输入参数：SaveFilePath——相对路径,如：/UploadFiles/NewsFiles '*/ Public Function CreatePath(SaveFilePath) Dim DeclarePath,FileObj,FilePath DeclarePath="https://www.jb51.net/" Set FileObj=Server.CreateObject("Scripting.FileSystemObject") For Each FilePath in split(SaveFilePath,"https://www.jb51.net/") DeclarePath=Replace(DeclarePath&FilePath&"https://www.jb51.net/","//","https://www.jb51.net/") if FileObj.FolderExists(Server.MapPath(DeclarePath))=false then FileObj.CreateFolder(Server.MapPath(DeclarePath))'建设文件夹 end if Next Set FileObj=nothing CreatePath=DeclarePath End Function '/* ' * 成果描写:重定名文件夹 ' * 输入参数：GetPath——文件夹路径 ' * 输入参数：OldName——旧的文件夹名称 ' * 输入参数：NewName——新的文件夹名称 '*/ Public Function RenFolder(GetPath,OldName,NewName) Dim Fso if OldName="" or NewName="" then exit Function else if OldName=NewName then exit Function end if SET Fso=Server.CreateObject("Scripting.FileSystemObject") if Fso.FolderExists(Server.MapPath(GetPath&NewName)) then response.write"<script language=javascript>alert('目次已经存在！！');this.history.go(-1);</script>" response.end() end if '//旧的文件夹不存在，则建设 if Not Fso.FolderExists(Server.MapPath(GetPath&OldName)) Then CreatePath(GetPath&OldName) End if Fso.MoveFolder Server.MapPath(GetPath&OldName),Server.MapPath(GetPath&NewName) set Fso=nothing 'response.redirect request.ServerVariables("HTTP_REFERER") End Function '/* ' * 成果描写:生存当前文件 ' * 输入参数：GetPath——文件路径 ' * 输入参数：GetContent——生存的内容 ' * 输入参数：GetFile——生存的文件名 '*/ Public Function SaveEditFile(GetPath,GetContent,GetFile) if GetContent="" or GetFile="" then exit Function SET Fso=Server.CreateObject("Scripting.FileSystemObject") set CF=Fso.CreateTextFile(Server.mappath(GetPath&GetFile),true) CF.write GetContent CF.Close set CF=nothing set Fso=nothing 'response.redirect request.ServerVariables("HTTP_REFERER") End Function End Class
以上就是ASP如何检测某文件夹是否存在,不存在则自动建设的具体内容，更多关于ASP如何检测某文件夹是否存在的资料请存眷剧本之家其它相关文章！
您大概感乐趣的文章: