VBS Anweisungende erwartet?!

Computer: Software & Programmierung Visual Basic
#1

Guten Tag,

ich habe ein kleines Problem mit dem Programmieren einer Datei. Als erstes: Ich habe gestern mit dem VBS-Programmieren angefangen und bin deshalb noch ein absoluter Anfänger.
Also hier mal der Inhalt der Datei:

a = MsgBox(„Datas missing! Start game anyway?“,4+16 , „ERROR!“)
if a = vbNo then
b = MsgBox(„The game has been closed.“, 0+64 , „ERROR!“)
else
c = start Datas.bat
End If

Diese Datei soll , wie man sieht, eine, im selben Ordner vorhandene Datei namens Datas.bat öffnen. Beides sind Spaßdateien, um den Spieler 'reinzulegen. Jetzt kommt aber immer, wenn ich die VBS-Datei starte: „VBS Anweisungsende erwartet.“ . Und zwar genau nach "c = start ", ich habe da mal abgezählt. Wenn ich statt „start“ „open“ eingebe, funktioniert es genau so wenig. Kann mir einer von euch/ihnen (wie’s beliebt ^^) helfen?

MfG
Kirschi

#2

Set oShell = WScript.CreateObject(„WScript.Shell“)
a = MsgBox(„Datas missing! Start game anyway?“,4+16 ,„ERROR!“)
if a = vbNo then
b = MsgBox(„The game has been closed.“, 0+64 , „ERROR!“)
else
oShell.Run „Datas.bat“
End If

Hallo Kirschi,

ungetestet, probiers mal so:

Set oShell = WScript.CreateObject("WScript.Shell") 
a = MsgBox("Datas missing! Start game anyway?",4+16 ,"ERROR!")
if a = vbNo then
 b = MsgBox("The game has been closed.", 0+64 , "ERROR!")
else
 oShell.Run "Datas.bat"
End If

Gruß
Reinhard

#3

Danke dir!
Jetzt funktionierts! :smiley:

MfG
Kirschi