Miért nem találja a fájlt? (VBS)

Nem értek a nyelvhez, de sikerült egy működő változatot kreálnom.

a = inputbox("Hány perc múlva keltselek fel? (percben add meg)", "Lazlo's Alarm")

b = inputbox("Add meg a zene teljes elérési útvonalát" & chr(10) & "(pl.: c:/files/zenék/zene.mp3")

wscript.sleep a*60000

Set WshShell = Wscript.CreateObject("Wscript.Shell")

Set oExec = WshShell.Exec("c:\Program Files\Windows Media Player\wmplayer.exe " & b)

Ha c-n van feltelepítve a windows media palyer-ed akkor működik, vagy a kedvenc lejátszódra is cserélheted.

Mi az a szösz a WShell.Run-nál?

Nem lehet egyszerűen Wshell.Run (b)

Nekem úgy müszik más progim, de nekifogok ennek is.

set WShell = WScript.CreateObject("WScript.Shell")

fejlec = "progi"

idozito = InputBox("Mennyi idő múlva keltselek?" &vbCrLf& "Percben add meg!",fejlec)

zene = InputBox("Melyik zenét játsszam?" &vbCrLf& "Lehetőség: h1n1" &vbCrLF&"Elérési útvonalat adj meg!",fejlec)

if zene = "h1n1" then zene = "D:\Zene\h1n1.mp3"

szunya = idozito*60*1000

WScript.Sleep szunya

jatszdle = WShell.Run(zene,0) 'a 0 azért kell, hogy a mediaplayer ablaka rejtett legyen

'így nem látszik, de feladatkezelőből ki lehet lőni, ha ismételné önmagát