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

'自動創建多極目錄'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

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 = nothingDim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists(Server.MapPath(SavePath))=false Then objFSO.CreateFolder(Server.MapPath(SavePath)) End Iffolder=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,SavePathSavePath=server.MapPath("./"&imagefile&"/"&username&"/"&specialname&"")set fso = server.CreateObject("scripting.filesystemobject") if fso.FolderExists(SavePath)=false then fso.createfolder(SavePath) end ifset fso=nothing

dim fso,SavePathSavePath=server.MapPath("./"&imagefile&"/"&username&"/"&specialname&"")set fso = server.CreateObject("scripting.filesystemobject") if fso.FolderExists(SavePath)=true then fso.deletefolder(SavePath) end ifset fso=nothing

dim fsoset fso=server.CreateObject("scripting.filesystemobject")sub copyfiles(path,path2) set mycopy=fso.getfile(path) response.flush() mycopy.copy path2 response.write("<b>installed success !&nbsp;&nbsp;</b>"&path2&"<br>") response.Flush() end subcall 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 = NothingEnd Function

'//提供文件處理通用接口Class FileSystemObject'/*' * 功能描述:刪除文件' * 輸入參數：FileName――文件相對路徑'*/Public Function DelFile(FileName) Dim getPath getPath="/" SET Fso=Server.CreateObject("Scripting.FileSystemObject") getPath=Replace(getPath&FileName,"http://","/") if Fso.FileExists(Server.MapPath(getPath))=True then 　　Fso.DeleteFile Server.mappath(getPath) End if Set Fso=NothingEnd 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&"/","http://","/")  　　if FileObj.FolderExists(Server.MapPath(DeclarePath))=false then  　　　　FileObj.CreateFolder(Server.MapPath(DeclarePath))'創建文件夾 　　end if Next  Set FileObj=nothing CreatePath=DeclarePathEnd 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 FunctionEnd Class