[NickM]

если указать корень диска будет двойной слеш, если путь до папки на диске, слеш будет нормальным. »

По той причине, что пути, например:

Код:

D:

, не существует.

Как вариант проверяйте последний символ, и в зависимости от условия присваивайте переменной нужное значение:

Код:

@echo off
Set "b="(new-object -COM 'Shell.Application').BrowseForFolder(0,'%1',0x200,0).self.path""
For /f "usebackq delims=" %%# in (`PowerShell %b%`) do set "Folder=%%#"
If "%Folder%"=="" (Goto Choice & Exit)
@echo %Folder%
set "FolderEnd=%Folder%\folder1"
If "%Folder:~-1%" EQU "\" set "FolderEnd=%Folder%folder1"
@echo %FolderEnd%
pause