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.