Imports System.ComponentModel
Imports System.IO

Public Class Form190
    Dim sele As String = ""
    Dim dl As Integer = 0
    Dim dosarchi As String = dossérie & "/" & formséries.nom & "/" & formséries.ComboBox1.SelectedItem & ".zip"
    Dim dosarter As String = dossérie & "/" & formséries.nom & "/" & formséries.ComboBox1.SelectedItem & "/"
    Private Sub Form190_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim lines1a() As String = File.ReadAllLines(théme)

        If lines1a(0) = 2 Then
            ProgressBar1.BackColor = Color.FromArgb(64, 64, 64)
            Me.BackColor = Color.FromArgb(64, 64, 64)
        ElseIf lines1a(0) = 3 Then
            Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ProgressBar1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
        Else

        End If
        dl = 1
        Directory.CreateDirectory(dossérie & "/" & formséries.nom & "/" & formséries.ComboBox1.SelectedItem)
        sele = formséries.ComboBox1.SelectedItem

        BackgroundWorker1.RunWorkerAsync()
    End Sub

    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        IO.Compression.ZipFile.ExtractToDirectory(dosarchi, dosarter)
    End Sub

    Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        Dim epver As Integer = 1
        Try
            For Each fichier As String In IO.Directory.GetFiles(dossérie & "/" & formséries.nom & "/" & "/" & sele)
                Dim info As New IO.FileInfo(fichier)
                My.Computer.FileSystem.RenameFile(dossérie & "/" & formséries.nom & "/" & "/" & sele & "/" & info.Name, formséries.nom & " " & sele & " Épisode " & epver & ".m4v")
                epver = epver + 1
            Next
        Catch ex As Exception

        End Try
        File.Delete(dossérie & "/" & formséries.nom & "/" & "\" & sele & ".zip")
        dl = 0
        formséries.dl = 0
        ProgressBar1.Style = ProgressBarStyle.Continuous
        ProgressBar1.Value = 0
        formséries.PictureBox2.Hide()
        formséries.PictureBox3.Show()
        formséries.CircularProgressBar1.Hide()
        formséries.ComboBox1.Enabled = True
        formséries.ComboBox2.Enabled = True
        formséries.Button1.Enabled = True
        formséries.Label9.Hide()
        formséries.Text = formséries.nom
        Form1.min = Form1.minmax
        Form1.Timer6.Start()
        If formséries.CheckBox1.Checked = True Then
            formséries.CheckBox1.Checked = False
            formséries.CheckBox1.Hide()
            Close()
            Form92.ShowDialog()
        Else
            Dim lines1() As String = File.ReadAllLines(Form1.settingseries)
            If lines1(0) = 1 Then
                Dim son = New System.Media.SoundPlayer(My.Resources.fin_de_téléchargement)
                son.Play()
                formséries.CheckBox1.Hide()
                MsgBox("Téléchargement terminer", MsgBoxStyle.Information)
                Close()
            ElseIf lines1(0) = 0 Then
                formséries.CheckBox1.Hide()
                MsgBox("Téléchargement terminer", MsgBoxStyle.Information)
                Close()
            Else
                Form74.startserie = 1
                Form74.ShowDialog()
                Close()
            End If
        End If
    End Sub

    Private Sub Form190_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        If dl = 1 Then
            e.Cancel = True
            MsgBox("Merci de patienter finalisation du téléchargement en cours...", MsgBoxStyle.Exclamation)
        Else

        End If
    End Sub
End Class