Помогите написать аналог моего батника на VBS

[mitiya]

Написал себе батник для открытия в тотал командере папок с базами для 1с7



@echo off

CHCP 1251 >nul

set home=%~dp0
set totexe=%home%\..\TOTALCMD.EXE

SetLocal EnableDelayedExpansion

Set $RKEY="HKCU\Software\1C\1Cv7\7.7\Titles"
Set $iMAX=0


For /F "Tokens=1,3 Delims= " %%i In ('Reg Query %$RKEY% /s^|Find "REG_SZ"') Do (
Set /A $iMAX +=1
Set $PATH=%%i
Set $NAME!$iMAX!=%%j
Set $PATH!$iMAX!=!$PATH:~4!
)


CALL :DISPLAY %$iMAX%

Echo Выберите базу:
Set /P $iBase=
%totexe% /o /L="!$PATH%$iBase%!"

exit

:DISPLAY
set $b=%1
CLS
Echo #------------------------------
Echo # Всего баз : %1
Echo #------------------------------
Echo.
Echo # Список баз:
Set $iNUM=1
echo -------------------------------
:LOOP
Echo %$iNUM%: !$NAME%$iNUM%!
Echo path: !$PATH%$iNUM%!
echo -------------------------------
Set /A $iNUM+=1
If %$iNUM% LEQ %$iMAX% GOTO :LOOP
GOTO :EOF



но тут для выбора базы нужно нажимать цифру на клавиатуре, что не очень удобно.
Я не спец в vbs, но на сколько я понимаю там можно создавать визуальный интерфейс.
Собственно мне бы нужно чтоб появился какой-то с список с кнопками или чем то в чем выбор можно сделать с помощью мыши.

[Busla]

логичнее сразу в hta писать

[mitiya]

hta дак hta , я не того ни другого не знаю :)

[megaloman]

Попробуйте сформулировать задачу с самого начала, чтобы не вчитываться в Ваш батник. Вам в папке надо открыть (чем?) файлы. Все файлы (допустим по маске)? или, как вариант решения, выдать запрос, открывать файл или нет из списка, полученного по маске?

[mitiya]

megaloman,

Задача собственно вот в чем :

Вывести список баз 1с7, так чтоб можно было выбрать .
После выбора скрипт передает этот путь тоталкомандеру с помошь его ключей TOTALCMD.EXE /o /L="%path%"
В моем скрипте выбор осуществляется нажатием цифры на клавиатуре , а мне бы хотелось нажимать на кнопки мышкой.

Сами пути к базам берутся из реестра.