serialisation

Salut à tout,

SVP, je veux sauvgarder des données dans un fichier binaire à l'aide de la serialisation mais  j'ai un probléme (par exemple j'ajout  un  nouveau stagiaire dans le fichier à ce moment  le contenu de fichier est supprimer et le nouveau stagiaire ajout à la place des stagiaire précedant)
j'aimerai quand j'ajout un nouveau stagiaire les ancienes stagiaire reste dans le fichier.
j'ai ecris ce code:

'Enregistrer des Stagiaire dans un fichier binaire

Dim fic As New FileStream("Stagiaire.txt",FileMode.Create, FileAccess.Write)

Dim f As New BinaryFormatter

f.Serialize(fic, element) 'element est un ArrayList comporte des stagiaire saisie par l'utilisateur

fic.Close()
merci d'avance pour vos aides.

Salut je n'ai pas testé ton code mais est ce que remplacer FileMode.Create par FileMode.Append ne te conviendrais pas ?

A+ 
Tof

Salut,
merci ptit_tof57
ça marche mais il reste un probleme, memesi le fichier contient  tous les stagiaire mais lorsque je veux afficher la liste des stagiaires il m' affiche le premier stagiaire. voila le code:

PublicSub serialistation()

'Enregistrer des Stagiaire dans un fichier binaire

Dim fic AsNew FileStream("Stagiaire.txt", FileMode.Append)

Dim f AsNew BinaryFormatter

f.Serialize(fic, element)

fic.Close()

EndSub

PublicFunction deserialistaion() As ArrayList

'lire le contenu de fichier Stagiaire

Dim fichier AsNew FileStream("Stagiaire.txt", FileMode.Open)

Dim f1 AsNew BinaryFormatter

element =

DirectCast(f1.Deserialize(fichier), ArrayList)

fichier.Close()

Return element

EndFunction
'ce methode(listeStag) Affiche dans une listbox tout le contenu de fichier

PrivateSub listeStag_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

element = deserialistaion() 'element est un ArrayList

For i AsInteger = 0 To element.Count - 1

ListBox1.Items.Add(element.Item(i).N_Inscription() & " " & element.Item(i).nom() & " " & element.Item(i).prenom() & " " & element.Item(i).DateNaissance() & " " & element.Item(i).modu().ToString() & " " & element.Item(i).Note().ToString() & " " & element.Item(i).Sexe().ToString())

Next

EndSub

Salut,
SVP,j'aimerais serialisé une collection mais j'ai des problemes.methode de deserialisation enregistrer uniquement le premier enregistrement  de fichier binaire  dans la collection.