[BAT] Batch FolderBrowserDialog

por **Delmar Grande** Ter Jun 25, 2013 5:42 pm

Esse é um exemplo de FolderBrowserDialog para Batch. Wink

Código:: @echo off mode con:cols=90 lines=12 ::Script criado no masbat v2.0 title -==*==- Batch FolderBrowserDialog -==*==- ( echo Option Explicit echo. echo WScript.Echo BrowseFolder^( "My Computer", False ^) echo. echo Function BrowseFolder^( myStartLocation, blnSimpleDialog ^) echo Const MY_COMPUTER = ^&H11^& echo Const WINDOW_HANDLE = 0 echo. echo Dim numOptions, objFolder, objFolderItem echo Dim objPath, objShell, strPath, strPrompt echo. echo strPrompt = "Selecione a pasta que será organizada:" echo If blnSimpleDialog = True Then echo numOptions = 0 echo Else echo numOptions = ^&H10^& echo End If echo. echo Set objShell = CreateObject^( "Shell.Application" ^) echo. echo If UCase^( myStartLocation ^) = "%userprofile%" Then echo Set objFolder = objShell.Namespace^( MY_COMPUTER ^) echo Set objFolderItem = objFolder.Self echo strPath = objFolderItem.Path echo Else echo strPath = myStartLocation echo End If echo. echo Set objFolder = objShell.BrowseForFolder^( WINDOW_HANDLE, strPrompt, _ echo numOptions, strPath ^) echo If objFolder Is Nothing Then echo BrowseFolder = "" echo Exit Function echo End If echo. echo Set objFolderItem = objFolder.Self echo objPath = objFolderItem.Path echo. echo BrowseFolder = objPath echo End Function )>"%tmp%\Folderpath.vbs" for /f "tokens=* delims=*" %%a in ('Cscript "%tmp%\Folderpath.vbs" //nologo') do (set "a=%%a") echo Vocˆ selecionou a pasta "%a%" pause>nul

DBatchScript