How ASP detects if a folder exists and does not exist automatically created

How ASP detects if a folder exists and does not exist automatically created

Folder=server.mappath ("/imagess")
Set fso = CreateObject ("Scripting.FileSystemObject")
If Fso.fileexists (Server.MapPath (filepath)) then
Respnse.write ("Everything is Built")
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 ("Everything is Built")
Else
Fso.createfolder (folder)
End If
Set FSO = Nothing

' Create a new folder (Allow stepless creation) 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 arrfol Der (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    

Create a folder

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

Delete a folder

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

Copying files

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 (". /Untitled 2.bmp ")," D:\ website Project \photo\aspupload\07_images\ ")