ASP如何检测某文件夹是否存在,不存在则自动创建（判断文件是否存在java）学到了

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 !  </b>”&path2&”<br>”)
response.Flush()
end sub
call copyfiles(Server.MapPath(“https://www.jb51.net/无标题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
‘
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=Nothing
End Function

‘
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=DeclarePath
End Function

‘
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

‘
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检查文件与目录是否存在的函数代码asp判断某个文件是否存在的函数