Solved

How do I convert a DOS batch file into a VB Script?

Posted on 2008-06-16
4
797 Views
Last Modified: 2010-04-21
I would like to be able convert a DOS batch file to a VB Script. This is the batch file I have:
@echo off

:BEG
cls
echo.
echo.
set /p snumber= Enter the song number:
echo.

:CONFIRMATION
set /p answer= You entered song %snumber%. Correct (Y,N)?
if /i %answer% EQU Y goto :PLAY
if /i %answer% EQU N goto :BEG
goto :CONFIRMATION

:PLAY
start C:\MP3\HA%snumber%.mp3

:END
0
Comment
Question by:giloliveira
  • 2
  • 2
4 Comments
 
LVL 24

Expert Comment

by:purplepomegranite
ID: 21801242

dim wsh, chosen
chosen=false
while not chosen
	i=InputBox("Enter the song number:", "Choose song")
	if MsgBox("You chose song " & i & vbcrlf & "Is this correct?",4,"Confirm")=6 then
		' User confirmed ok
		chosen=true
		' Play song
		set wsh = CreateObject("WScript.Shell")
		wsh.run("""c:\MP3\HA" & i & ".mp3""")
		set wsh=nothing
	end if
wend
		
	

Open in new window

0
 

Author Comment

by:giloliveira
ID: 21804916
This almost works. The problem I am finding with this script is that when the InputBox opens, if I click on the Cancel button, the scrip will continue to run instead of closing. How can I make the script to close if I select the Cancel button.
Also, is it possible to have the number entered on the first box to be shown in bold on the confirmation box?
0
 
LVL 24

Accepted Solution

by:
purplepomegranite earned 500 total points
ID: 21805184
The attached let's you cancel from the inputbox.

It is not possible to make text bold in the standard VBS messagebox, so the number can't be emboldened.
dim wsh, chosen
chosen=false
i=1
while not chosen and (i<>"")
	i=InputBox("Enter the song number:", "Choose song")
	if (i<>"") then
		if MsgBox("You chose song " & i & vbcrlf & "Is this correct?",4,"Confirm")=6 then
			' User confirmed ok
			chosen=true
			' Play song
			set wsh = CreateObject("WScript.Shell")
			wsh.run("""c:\MP3\HA" & i & ".mp3""")
			set wsh=nothing
		end if
	end if
wend

Open in new window

0
 

Author Closing Comment

by:giloliveira
ID: 31467867
Thanks for your assistance. It works exactly as I want it to work.
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Welcome back!  My apologies for taking so long to write part two of this series; it's been a long time coming!  As I promised in Part 1, this article will focus on how to locate those elusive AD properties that you are searching for.  Why is this us…
This is pretty cool.  The purpose of this VB Script is to help you document where JAR (Java ARchive) files and specifically java class files are located so that you can address issues seen with a client or that you can speak intelligently with a dev…
Microsoft Active Directory, the widely used IT infrastructure, is known for its high risk of credential theft. The best way to test your Active Directory’s vulnerabilities to pass-the-ticket, pass-the-hash, privilege escalation, and malware attacks …
In a recent question (https://www.experts-exchange.com/questions/29004105/Run-AutoHotkey-script-directly-from-Notepad.html) here at Experts Exchange, a member asked how to run an AutoHotkey script (.AHK) directly from Notepad++ (aka NPP). This video…

809 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question