Foro de elhacker.net

 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.

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.

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

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