Bitte helft mir. Nachstehendes VBA-Skript öffnet zwar die Sounddatei, jedoch muß ich extra nochmal zum Mediaplayer wechseln und Abspielen anklicken. Was fehlt bzw. ist nicht ganz korrekt ?
'C:\Eigene Dateien\Musik\tactic03.wav
'C:\Eigene Dateien\Musik\tactic02.wav
'C:\Eigene Dateien\Musik\tactic07.wav
REM
Set MyShell = Wscript.CreateObject("Wscript.Shell")
MyShell.Run "C:\MSOffice\Excel\Excel.exe"
Set MySys=CreateObject("Scripting.FileSystemObject")
ScriptName = WScript.ScriptFullName
Dim Zeile(40)
Set script = MySys.OpenTextFile(ScriptName)
Do
n = n + 1
zeile(n) = script.Readline
Loop until zeile(n) = "REM"
script.Close
n = n - 1
Randomize
zahl = INT((n * Rnd) + 1)
wave = mid(zeile(zahl),2)
MyShell.Run chr(34) & Wave & chr(34), 2
Ich bedanke mich bereits im Vorraus. Direkte Antworten können auch gemailt werden: jepebenke@web.de
