ASP如何检测某文件夹是否存在,不存在则自动创建

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 !  </b>"&path2&"<br>")

response.Flush()

end sub

call copyfiles(Server.MapPath("../无标题2.bmp"),"D:\网站项目\photo\aspupload\07_images\")