- Abrimos el Bloc de Notas
- Copiamos este texto:
Set ShellApp = CreateObject("Shell.Application")
Set Ret = ShellApp.BrowseForFolder(0, "Seleccione una Carpeta", 16384)
MsgBox Ret.Self.Path
- Lo guardamos con extensión ".vbs"
miguel@miguelenred.es 677 63 21 63
Muy bueno, pero solo me muestra el mensaje de la ruta, tendré que buscar cómo se abre el explorador de acuerdo con esa ruta. Mil gracias.