SAUVEGARDER QUELQUE CHOSE AVEC PLUSIEURS EXTENSION EN UNE FOIS (UTILE QUAND IL Y A PLUSIEURS ÉLÉMENTS DIFFÉRENTS ET QUE QUAND ON LE CHARGE IL REMET TOUT AU MAUVAIS ENDROIT)

' Pour ENREGISTRER
 Dim retour As Integer
        Retour = SaveFileDialog_ListView.ShowDialog()
        If Retour = 1 Then

' Met en mémoir la structure
            With ObjTotal
                .StructureConversionMinute = Label_MinutesConverti.Text
                .StructureTotalHeure = Label_TotalHeure.Text
                .StructureTotalMinute = Label_TotalMinute.Text
            End With

' Sauvegarde la Listview ds la variable "Save_Listview"
            Dim i As Integer
            Dim Save_Listview as string
            Save_Listview = "" ' On réinitialise la variable
            For i = 0 To ListView.Items.Count - 1
                Save_Listview = Save_Listview & ListView.Items(i).SubItems(0).Text & "|" & ListView.Items(i).SubItems(1).Text & "|" & ListView.Items(i).SubItems(2).Text & "|" & ListView.Items(i).SubItems(3).Text & "|" & ListView.Items(i).SubItems(4).Text & vbCrLf
            Next i

' Maintenant on sauvegarde le premier fichier
           FileOpen(1, SaveFileDialog.FileName, OpenMode.Binary)  
          FilePut(1, Save_Listview)
FileClose(1)

' Maintenant on créer Une TextBox invisible
            TextBox_NewExtension.Text = ""
            TextBox_NewExtension.Text = SaveFileDialog.FileName & "Temps"

'Sauvegarde le deuxième fichier
            FileOpen(1, TextBox_NewExtension.Text, OpenMode.Binary)
            FilePut(1, ObjTotal)
            FileClose(1)



'Et pour l'ouvrir
Dim Retour as integer
Retour = OpenFiledialog.ShowDialog()
        If Retour = 1 Then
'On ouvre le premier fichier
            FileOpen(1, OpenFiledialog.FileName, OpenMode.Binary) 
            FileClose(1)

            TextBox_NewExtension.Text = ""
            TextBox_NewExtension.Text = OpenFiledialog.FileName & "Temps"

'On ouvre le deuxième
            FileOpen(1, TextBox_NewExtension.Text, OpenMode.Binary)
            FileGet(1, ObjTotal)   
         FileClose(1)

'recharge la ListView
            Dim LVI As ListViewItem 'Variable qui ajouter ou retire les éléments de la Listview
            Dim val() As String
            Dim fs As New IO.FileStream OpenFiledialog.FileName,IO.FileMode.Open)
            Dim str As New IO.StreamReader(fs)
            Dim i As Integer
            Do Until str.Peek = -1
                val = str.ReadLine.Split("|")
                LVI = ListView.Items.Add(val(0))
                For i = 1 To val.Length - 1
                    LVI.SubItems.Add(val(i))
                Next  
            Loop
            str.Close()
            fs.Close()

'Recharge la structure
            Label_MinutesConverti.Text = ObjTotal.StructureConversionMinute
            Label_TotalHeure.Text = ObjTotal.StructureTotalHeure
            Label_TotalMinute.Text = ObjTotal.StructureTotalMinute