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

   response.Flush()

   end sub

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