avviso nome cartella esistente

[djjunior]

Carissimi,
come posso implementare a questo script:

Dim newdir
newdir = "PhotoGallery/PhotoGallery/" & request.form("titolocartella") &""
Dim objFile
Set objFile = Server.CreateObject("Scripting.FileSystemObject")
objFile.CreateFolder Server.MapPath(newdir)
Response.redirect("creatitolo_ins.asp?cartella=" & request.form("titolocartella") &"")

La possibilità di avvisare mediante un response.write o redirect, che il nome dalla cartella da creare è esistente?
Grazie sempre il Vs. aiuto.
G.

[lucalicc]

<%     
Dim fso     
Set fso = Server.CreateObject("Scripting.FileSystemObject")     
If fso.FolderExists(Server.MapPath("miacartella"))        
Response.Write "La cartella esiste"     
Else         
Response.Write "La cartella non esiste"     
End If     
Set fso = Nothing 
%> 

luca