error con scrip vbs

[**Aincrad**]

 hola bueno tengo un vbs que lo que hace es explorar carpetas, abre y corre bien
pero el problema es que se lo abro y despues lo quiero cerrar osea le doy
al boton cancelar me lanza error el vbs.

no lo he podido solucionar intente con el comando else pero tampoco funciono.

Código (bash) [Seleccionar] Expandir


Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
    (WINDOW_HANDLE, "Selecciona una carpeta:", NO_OPTIONS)   
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path
objShell.Explore strPath


      en pocas palabras lo que quiero es cuando abra el vbs pero no selecione
       nada sino que le de a cancelar se cierre y no me aparezca el mensaje
        error.

[tincopasan]

en realidad como querés usar else sino hay un if?
y es lo que falta,basicamente:

Código (vb) [Seleccionar] Expandir


etc
Set objFolder = objShell.BrowseForFolder _
    (WINDOW_HANDLE, "Selecciona una carpeta:", NO_OPTIONS)   
if (not objFolder is nothing) then
etc.
end if