VBS - Aufruf einer batchdatei

[KlaDi]

Hallo,

ich habe mir ein Script geschrieben, das erstmal nichts weiter tun soll als eine alte Batchdatei aufzurufen:

Option Explicit
	Call starteProgramm("""T:\batch.EXE""")
WScript.Quit

Sub starteProgramm (ByVal programm)
	Dim shell
		Set shell = CreateObject("WScript.Shell")
			shell.run programm, 1
End Sub

Das Problem ist nur, das zwar das Programm augerufen wird, es aber sofort beendet wird. Wenn ich das Programm via Doppelklick aufrufe oder per Kommandozeile klappt das einwandfrei.
Weiß jemand woran das liegen kann?

gruß klaus.

 

[Tody83]

Hi...

Also Sparr mit den " ein wenig...

Option Explicit
	Call starteProgramm("T:\batch.EXE")
WScript.Quit

Sub starteProgramm (ByVal programm)
	Dim shell
		Set shell = CreateObject("WScript.Shell")
			shell.run programm, 1
End Sub

Aber Warum machst du es nicht so...

Option Explicit
Dim Shell
Set Shell = CreateObject("WScript.Shell")
Shell.run "T:\batch.EXE", 1

"alte Batchdatei" würde zb das sein "T:\batch.BAT"

Zu deiner Frage:
Wenn ich dich richtig versteh willst du das das Fenster das Aufgeht offen bleibt?
Es wird aber geschlossen wenn der BATCH fertig ist. Seh ich das Richtig?

Ersetz mal das "T:\batch.exe" mit "C:\test.bat" und erstell auf C: eine Datei test.bat mit folgendem Inhalt...

@ECHO OFF
CLS
DIR
PAUSE

Teste es danach und berichte wie es sich verhält bzw ob es sich nun so verhält wie du es gern hättest...

lg Tody