APPLI DE CREATION DE FICHIER M3U

Imports System.IO
Public Class Form1
    Dim file() As String
    Private Sub btn_open_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_open.Click
        OpenFileDialog1.ShowDialog()
    End Sub
    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        'récuperation des differents fichiers selectionné
        Dim i As Integer
        file = OpenFileDialog1.FileNames
        While i < file.Length
            i = i + 1
            list_files.Items.Add(file(i - 1))
        End While
    End Sub

    Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click
        Close()
    End Sub

    Private Sub AProposToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AProposToolStripMenuItem.Click
        Form2.Show()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'type de fichier autorisé
        OpenFileDialog1.Filter = "Fichiers Audio (*.mp3,*.wma,*.ogg,*.aac)|*.mp3;*.wma;*.ogg;*.aac"
        SaveFileDialog1.Filter = "Fichiers Playlist (*.m3u)|*.m3u"
    End Sub

    Private Sub SauvegarderToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SauvegarderToolStripMenuItem.Click
        'ouverture du savefiledialog
        SaveFileDialog1.FileName = tb_name.Text
        If SaveFileDialog1.ShowDialog(Me) = DialogResult.OK Then

            Dim sw As StreamWriter = New StreamWriter(SaveFileDialog1.OpenFile)
            sw.WriteLine("#EXTM3U")
            Try
                Dim i As Integer = 0
                While i < list_files.Items.Count
                    sw.WriteLine("#EXTINF:" + list_files.Items(i))
                    sw.WriteLine(file(i))
                    System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
                End While
            Finally
                If Not (sw Is Nothing) Then
                    sw.Close()
                End If
            End Try

        End If
    End Sub

    Private Sub NouvellePlaylistToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NouvellePlaylistToolStripMenuItem.Click
        tb_name.Clear()
        list_files.Items.Clear()
    End Sub

    Private Sub btn_save_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_save.Click
        SaveFileDialog1.FileName = tb_name.Text
        If SaveFileDialog1.ShowDialog(Me) = DialogResult.OK Then

            Dim sw As StreamWriter = New StreamWriter(SaveFileDialog1.OpenFile)
            sw.WriteLine("#EXTM3U")
            Try
                Dim i As Integer = 0
                While i < list_files.Items.Count
                    sw.WriteLine("#EXTINF:" + list_files.Items(i))
                    sw.WriteLine(file(i))
                    System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
                End While
            Finally
                If Not (sw Is Nothing) Then
                    sw.Close()
                End If
            End Try

        End If
    End Sub
End Class

Télécharger le zip