@echo off
cls
::Author: Donkano
::E-Mail:
god.donkano@gmail.com
::Domain: http://digital-vortech.ath.cx/
echo WARNING!
echo Only press a button when prompted to.
echo If you are prompted, this program will explain what it is asking for.
echo.
:start
echo -- Options --
echo 1 = Wav to Wa2
echo 2 = Wa2 to Wav
echo 3 = Bmp to Bm2
echo 4 = Bm2 to Bmp
:: [Start] Get Converstion Method Option
SETLOCAL
SET action_vbs=%TEMP%\~tmp.VBS
SET action_cmd=%TEMP%\~tmp.cmd
ECHO Set oFS=CreateObject("Scripting.FileSystemObject")>%action_vbs%
ECHO oFS.OpenTextFile("CON",2).Write "Input an operation integer: ">>%action_vbs%
ECHO S=%1(Trim(oFS.OpenTextFile("CON",1).Readline))>>%action_vbs%
ECHO oFS.CreateTextFile("%action_cmd%",2).Write "set action_input=">>%action_vbs%
ECHO oFS.OpenTextFile("%action_cmd%",8).Write S>>%action_vbs%
cscript.exe //nologo %action_vbs%
CALL %action_cmd%
DEL %action_vbs%
DEL %action_cmd%
SET action_input
ENDLOCAL & SET action_input=%action_input%
:: [End] Get Converstion Method Option
echo.
pause
echo.
echo Set "dir_input" as [directory]
echo WITHOUT the filename. Make sure it has a trailing "\".
echo Ex: C:\Program Files\Continuum\Edit\Convert\WB-Converter\
echo Ex: [C:\Program Files\Continuum\Edit\WB-Converter]\
echo Ex: C:\Program Files\Continuum\WB-Converter\
echo Ex: [C:\Program Files\Continuum\Convert\WB-Converter]\
:: [Start] Get Directory Name
SETLOCAL
SET dir_vbs=%TEMP%\~tmp.VBS
SET dir_cmd=%TEMP%\~tmp.cmd
ECHO Set oFS=CreateObject("Scripting.FileSystemObject")>%dir_vbs%
ECHO oFS.OpenTextFile("CON",2).Write "Input directory of file: ">>%dir_vbs%
ECHO S=%1(Trim(oFS.OpenTextFile("CON",1).Readline))>>%dir_vbs%
ECHO oFS.CreateTextFile("%dir_cmd%",2).Write "set dir_input=">>%dir_vbs%
ECHO oFS.OpenTextFile("%dir_cmd%",8).Write S>>%dir_vbs%
cscript.exe //nologo %dir_vbs%
CALL %dir_cmd%
DEL %dir_vbs%
DEL %dir_cmd%
SET dir_input
ENDLOCAL & SET dir_input=%dir_input%
:: [End] Get Directory Name
echo.
pause
echo.
echo Do NOT include the extension of the file.
:: [Start] Get Filename
SETLOCAL
SET file_vbs=%TEMP%\~tmp.VBS
SET file_cmd=%TEMP%\~tmp.cmd
ECHO Set oFS=CreateObject("Scripting.FileSystemObject")>%file_vbs%
ECHO oFS.OpenTextFile("CON",2).Write "Input name of file to be converted: ">>%file_vbs%
ECHO S=%1(Trim(oFS.OpenTextFile("CON",1).Readline))>>%file_vbs%
ECHO oFS.CreateTextFile("%file_cmd%",2).Write "set file_input=">>%file_vbs%
ECHO oFS.OpenTextFile("%file_cmd%",8).Write S>>%file_vbs%
cscript.exe //nologo %file_vbs%
CALL %file_cmd%
DEL %file_vbs%
DEL %file_cmd%
SET file_input
ENDLOCAL & SET file_input=%file_input%
:: [End] Get Filename
if %action_input%==4 (goto four)
if %action_input%==3 (goto three)
if %action_input%==2 (goto two)
if %action_input%==1 (goto one)
cls
echo WARNING!
echo Only press a button when prompted to.
echo If you are prompted, this program will explain what it is asking for.
echo.
echo Error!
echo You have input an unexpected value for "action_input".
echo Program restarted.
echo.
goto start
:one
:: Wav to Wa2
if exist %dir_input%%dir_input%.Wav (ren "%dir_input%%file_input%.Wav" %file_input%.Wa2) else echo %dir_input%%file_input%.Wav is not a file.
if exist %dir_input%%file_input%.Wa2 (echo File converted successfully.) else echo Program failed to convert %dir_input%%file_input%.Wav
goto end
:two
:: Wa2 to Wav
if exist %dir_input%%file_input%.Wa2 (ren "%dir_input%%file_input%.Wa2" %file_input%.Wav) else echo %dir_input%%file_input%.Wa2 is not a file.
if exist %dir_input%%file_input%.Wav (echo File converted successfully.) else echo Program failed to convert %dir_input%%file_input%.Wa2
goto end
:three
:: Bmp to Bm2
if exist %dir_input%%file_input%.Bmp (ren "%dir_input%%file_input%.Bmp" %file_input%.Bm2) else echo %dir_input%%file_input%.Bmp is not a file.
if exist %dir_input%%file_input%.Bm2 (echo File converted successfully.) else echo Program failed to convert %dir_input%%file_input%.Bmp
goto end
:four
:: Bm2 to Bmp
if exist %dir_input%%file_input%.Bm2 (ren "%dir_input%%file_input%.Bm2" %file_input%.Bmp) else echo %dir_input%%file_input%.Bm2 is not a file.
if exist %dir_input%%file_input%.Bmp (echo File converted successfully.) else echo Program failed to convert %dir_input%%file_input%.Bm2
:end
echo You have reached the end of the program. Press any key to exit.
pause
exit