直接給大家分享一下腳本之家測試正常可以使用的代碼，并且支持多級目錄創建

代碼一

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 reterry

function createit(path)

dim fsofo,cinfo,thepath,thepatharray

dim i,ii,binfo

binfo=false

thepath=path

set fsofo=createobject("scripting.filesystemobject")

if err then

err.clear

exit function

end if

thepath=replace(thepath,"\","/")

if left(thepath,1)="/" then

thepath=right(thepath,len(thepath)-1)

end if

if right(thepath,1)="/" then

thepath=left(thepath,len(thepath)-1)

end if

thepatharray=split(thepath,"/")

for i=0 to ubound(thepatharray)

createfoldersub1=createfoldersub1&thepatharray(i)&"/"

createfoldersub=server.mappath(createfoldersub1)

if not fsofo.folderexists(createfoldersub) then

fsofo.createfolder(createfoldersub)

end if

next

if err then

err.clear

else

binfo=true

end if

createit=binfo

end function

測試代碼

createit("/202004/tools/")

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

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

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

folder=server.mappath("/imagess")

Set fso = CreateObject("Scripting.FileSystemObject")

if fso.fileexists(Server.mappath(filepath)) then

respnse.write("都有了還建什么建")

else

fso.createfolder(folder)

end if

Set fso = nothing

Dim objFSO

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(Server.MapPath(SavePath))=false Then

objFSO.CreateFolder(Server.MapPath(SavePath))

End If

folder=server.mappath("/imagess")

Set fso = CreateObject("Scripting.FileSystemObject")

if fso.fileexists(Server.mappath(filepath)) then

respnse.write("都有了還建什么建")

else

fso.createfolder(folder)

end if

Set fso = nothing

都不完善，我想樓主的意思是創建無極深度目錄吧，給個我寫的：

'創建新文件夾(允許無級創建)1:35 2005-1-31

Public Function CreateFolder(FolderPath)

Dim sObjFSO

Dim arrFolder

Dim i

Set sObjFSO = Server.CreateObject("Scripting.FileSystemObject")

FolderPath = Replace(FolderPath,"\","/")

arrFolder = Split(FolderPath,"/")

On Error Resume Next

For i = 0 To UBound(arrFolder)

If i > 0 Then arrFolder(i) = arrFolder(i-1) & "/" & arrFolder(i)

If Not sObjFSO.FolderExists(arrFolder(i)) Then

sObjFSO.CreateFolder(arrFolder(i))

End If

Next

CreateFolder = True

If Err.number <> 0 Then

CreateFolder = False

Err.Clear

End If

End Function

創建文件夾

dim fso,SavePath

SavePath=server.MapPath(".\"&imagefile&"\"&username&"\"&specialname&"")

set fso = server.CreateObject("scripting.filesystemobject")

if fso.FolderExists(SavePath)=false then

fso.createfolder(SavePath)

end if

set fso=nothing

刪除文件夾

dim fso,SavePath

SavePath=server.MapPath(".\"&imagefile&"\"&username&"\"&specialname&"")

set fso = server.CreateObject("scripting.filesystemobject")

if fso.FolderExists(SavePath)=true then

fso.deletefolder(SavePath)

end if

set fso=nothing

復制文件

dim fso

set fso=server.CreateObject("scripting.filesystemobject")

sub copyfiles(path,path2)

set mycopy=fso.getfile(path)

response.flush()

mycopy.copy path2

response.write("installed success !??"&path2&"
")

response.Flush()

end sub

call copyfiles(Server.MapPath("../無標題2.bmp"),"D:\網站項目\photo\aspupload\07_images\")

下面是其他網友的補充

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="/"

SET Fso=Server.CreateObject("Scripting.FileSystemObject")

getPath=Replace(getPath&FileName,"//","/")

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="/"

Set FileObj=Server.CreateObject("Scripting.FileSystemObject")

For Each FilePath in split(SaveFilePath,"/")

DeclarePath=Replace(DeclarePath&FilePath&"/","//","/")

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

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如何檢測某文件夾是否存在的資料請關注腳本之家其它相關文章！

總結

以上是生活随笔為你收集整理的测试用html文件是否存在,ASP如何检测某文件夹是否存在,不存在则自动创建的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。