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

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

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

Написал себе батник для открытия в тотал командере папок с базами для 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, но на сколько я понимаю там можно создавать визуальный интерфейс.
Собственно мне бы нужно чтоб появился какой-то с список с кнопками или чем то в чем выбор можно сделать с помощью мыши.

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

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

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

megaloman,

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

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

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