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 DateienMusiktactic03.wav
'C:Eigene DateienMusiktactic02.wav
'C:Eigene DateienMusiktactic07.wav
REM
Set MyShell = Wscript.CreateObject("Wscript.Shell")
MyShell.Run "C:MSOfficeExcelExcel.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 Voraus. Direkte Antworten können auch gemailt werden: jepebenke@web.de
T-Rex
