ASP如何檢測某文件夾是否存在,不存在則自動創建

直接給大家分享一下錯新站長站測試正常可以使用的代碼，並且支持多級目錄創建

代碼一

Function CreateMultiFolder(ByVal CFolder) Dim objFSO, PhCreateFolder, CreateFolderArray, CreateFolder Dim i, ii, CreateFolderSub, PhCreateFolderSub, BlInfo BlInfo = False CreateFolder = CFolder On Error Resume Next Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If Err Then Err.Clear() Exit Function End If If Right(CreateFolder, 1) = "/" Then CreateFolder = Left(CreateFolder, Len(CreateFolder) -1) End If CreateFolderArray = Split(CreateFolder, "/") For i = 0 To UBound(CreateFolderArray) CreateFolderSub = "" For ii = 0 To i CreateFolderSub = CreateFolderSub & CreateFolderArray(ii) & "/" Next PhCreateFolderSub = Server.MapPath(CreateFolderSub) If Not objFSO.FolderExists(PhCreateFolderSub) Then objFSO.CreateFolder(PhCreateFolderSub) End If Next If Err Then Err.Clear() Else BlInfo = True End If CreateMultiFolder = BlInfo End Function

使用方法：

CreateMultiFolder("/202003/tools/")

代碼二、測試ok

 '自動創建多極目錄'code by jb51 reterryfunction createit(path)dim fsofo,cinfo,thepath,thepatharraydim i,ii,binfobinfo=falsethepath=pathset fsofo=createobject("scripting.filesystemobject")if err thenerr.clearexit functionend ifthepath=replace(thepath,"/","/")if left(thepath,1)="/" thenthepath=right(thepath,len(thepath)-1)end ifif right(thepath,1)="/" thenthepath=left(thepath,len(thepath)-1)end ifthepatharray=split(thepath,"/")for i=0 to ubound(thepatharray)createfoldersub1=createfoldersub1&thepatharray(i)&"/"createfoldersub=server.mappath(createfoldersub1)if not fsofo.folderexists(createfoldersub) thenfsofo.createfolder(createfoldersub)end ifnextif err thenerr.clearelsebinfo=trueend ifcreateit=binfoend function

測試代碼

createit("/202004/tools/")

以上代碼如果無法運行，請檢查iis運行用戶的權限是否有寫功能。今天測試的時候默認iis7.5下是無法運行的。

下面的實現代碼功能性簡單，適合學習

ASP如何檢測某文件夾是否存在,不存在則自動創建folder=server.mappath("/imagess")Set fso = CreateObject("Scripting.FileSystemObject")if fso.fileexists(Server.mappath(filepath)) thenrespnse.write("都有了還建什麼建")elsefso.createfolder(folder)end ifSet fso = nothingDim objFSOSet objFSO = Server.CreateObject("Scripting.FileSystemObject")If objFSO.FolderExists(Server.MapPath(SavePath))=false ThenobjFSO.CreateFolder(Server.MapPath(SavePath))End Iffolder=server.mappath("/imagess")Set fso = CreateObject("Scripting.FileSystemObject")if fso.fileexists(Server.mappath(filepath)) thenrespnse.write("都有了還建什麼建")elsefso.createfolder(folder)end ifSet fso = nothing