Salve a tutti, sto creando una semplice struttura sotto asp con la quale posso visionare tutti i file midi contenuti nel mio pc..
Ho inserito in un archivio tutti i nomi delle canzoni e adesso, una volta che mi compaiono tutte le canzoni dentro una combo volevo far in modo che cliccando su un nome qualsiasi di canzone questa si avviasse.
Il mio problema è che non so come si effettua questa operazione, o meglio cosa devo scrivere per far si che creando il Path questo mi sia utile per far avviare il file.
Potreste aiutarmi e preferibilmente scrivermi il codice che mi permetta di avviare un qualsiasi file .mid da browser il programma che utilizzerò per aprire i file è il vanbasco's karaoke player.

Grazie!!!

Scusate se mi intrometto.
Sto cercando di fare qualcosa di simile anch'io ma il mio obiettivo è di far eseguire un file midi memorizzato in una cartella del server (Aruba) a chi accede ad una pagina.aspx
Il framework è ASP.NET 2.0

Allego il codice che mi funziona in locale ma non in linea (non dà errore semplicemente non esegue il codice)

Qualcuno può aiutarmi?

Grazie

Imports System.Web

Partial Class Test
Inherits System.Web.UI.Page

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
Call fillAudioList()
End Sub


Protected Sub Avvia_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Avvia.Click
Dim nomeFileAudio As String = audioFile.SelectedValue
Dim b as Boolean
b=PlayMidiFile(Server.MapPath("Public") & "\Audio\" & nomeFileAudio & ".mid")

End Sub

Protected Sub fillAudioList()
Dim fs
Dim fl
Dim file
Dim posAudio As String = "\Audio"

audioFile.Items.Clear()

fs = CreateObject("Scripting.FileSystemObject")
fl = fs.GetFolder(Server.MapPath("Public") & posAudio)
file = fl.Files
For Each fl In file
If UCase(Right(fl.name, 3)) = "MID" Then
audioFile.Items.Add(Left(fl.name, Len(fl.name) - 4))
End If
Next

End Sub


Public Function PlayMidiFile(ByVal MidiFile As String) As Boolean
Dim lRet As Long
On Error Resume Next
If Dir(MidiFile) = "" Then Exit Function
lRet = mciSendString("stop midi", "", 0, 0)
lRet = mciSendString("close midi", "", 0, 0)
lRet = mciSendString("open sequencer!" & MidiFile & " alias midi", "", 0, 0)
lRet = mciSendString("play midi", "", 0, 0)
PlayMidiFile = (lRet = 0)
End Function

End Class