Appli de creation de fichier m3u

Télécharger le projet
Commenter

Description

Bonjour

Voila j'en avais marre d'etre obligé a chaque fois de demarrer WMP pour créer une playlist
donc voici une tite appli qui crée les playlists

donnez votre avis merci

Source / Exemple : 


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 projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (jfrag)