Ciao a tutti,
complimenti per il sito e il forum, moooolto bello e utile.
Ma veniamo al problema:
sono riuscito a leggere tutti i file audio da una cartella.
Ora però, vorrei farli caricare e suonare tutti in media player (ovviamente uno per volta e all'ultimo brano dovrebbe ricominciare).
Ho letto e riletto e preso esempi ma non ci riesco....
Un aiutino???
Dim Files() As String
'Per avere informazioni sui file
Dim f As FileInfo
Dim Cartella As String = Application.StartupPath & "\Musica"
Files = Directory.GetFiles(Cartella)
For Each sFile As String In Files
f = New FileInfo(sFile)
TextBox1.Text = TextBox1.Text & " " & f.Name
WMP.URL = Cartella & "\" & f.Name
Next
WMP.Ctlcontrols.play()
|