Hej jag håller på att bygga på en simpel väckarklocka som ska starta winamp och köra en låt som man väljer med CommonDialog men den vill inte köra igång låten utan iställe startar den vinamp med låtarna: exec och commondialog1.filename....om jag iställe byter ut commondialog1.filename till en sök väg till 1 mp3 så funkar de....vad gör ja för fel?


Dim t, kor, d, programmet, filen

Public Sub Command2_Click()
With CommonDialog1
.Filter = "mp3(*.mp3)|*.mp3"
.ShowOpen
End With
End Sub


Public Sub Form_Load()
Text1.Text = Time
Text2.Text = Date
kor = 0
End Sub


Public Sub Command1_Click()
kor = 1
Label5.Caption = "Alarmet inställt på kl: " & Text1.Text & " den " & Text2.Text & "!"
End Sub
Public Sub Timer1_Timer()
Label1.Caption = Time
Label2.Caption = Date
If Label1.Caption = Text1.Text And Label2.Caption = Text2.Text And kor = 1 Then
Shell "c:\program\winamp\winamp.exe -exec CommonDialog1.filenamn"
End If
End Sub