Can vbs create bat file with line from InputBox?

Question

can someone help me? This vbs script create a run.bat but I need in run.bat second line Answer from InputBox on start of vbs script. It is possible?

Answer = LCase(InputBox("Your Answer:", ""))
     If Len(Answer) Then
     Dim objFSO, outFile
            Set objFSO = CreateObject("Scripting.FileSystemObject")
            Set outFile = objFSO.CreateTextFile("run.bat", True)
    outFile.WriteLine "Your answer is: "
    outFile.WriteLine """Answer"

    outFile.Close

    WScript.Echo "Done."
End If

score 4 · Accepted Answer · answered May 25 '15 at 13:09

4

Sure, you just need to remove the double quotes from this line:

outFile.WriteLine """Answer"

so that the value of the variable Answer is written to the file instead of the string "Answer:

outFile.WriteLine Answer

You can even make the answer appear on the same line as the text Your answer is: if you generate the output like this:

outFile.Write "Your answer is: "
outFile.WriteLine Answer

or like this:

outFile.WriteLine "Your answer is: " & Answer

answered May 25 '15 at 13:09

Ansgar Wiechers

193,178
25
254
328

And what abot Answer between text? Like: outFile.WriteLine Your Answer is right ? – Milan Kopáč May 25 '15 at 13:23
1

You can concatenate more than two strings in a row: `outFile.WriteLine "Your answer is: " & Answer & " some other text"`. – Ansgar Wiechers May 25 '15 at 13:24

Can vbs create bat file with line from InputBox?

1 Answers1