Código
@echo off echo Set objShell= CreateObject("Shell.Application") > temp.vbs echo Set objFolder = objShell.BrowseForFolder _ >> temp.vbs echo (WINDOW_HANDLE, "Selecciona una carpeta:", NO_OPTIONS) >> temp.vbs echo Set objFolderItem = objFolder.Self >> temp.vbs echo strPath = objFolderItem.Path >> temp.vbs echo wscript.echo strPath >> temp.vbs cscript //nologo temp.vbs & del temp.vbs pause >nul
Salu2.