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

'自动创建多极目录
'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

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("<b>installed success !&nbsp;&nbsp;</b>"&path2&"<br>")
 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

'//提供文件处理通用接口
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"<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