1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
Private Sub EnregistrerFichier(ByRef Frm_Active, ByVal Path)
Dim Str_Writer As StreamWriter = New StreamWriter(CType(Path, String))
If Frm_Active.GetType.Equals(GetType(Frm_Navette)) Then
Sauvegarde_Controles(Frm_Active.Tbl_Fiche_Navette, Str_Writer, Path)
' Si la form est d'un certain type, j'appelle ma fonction de sauvegarde
End If
Str_Writer.Close() ' Fermeture du flux
Directory.Move(Path_Old_Troncon, Path_New_Troncon) ' on déplace le contenu d'un répertoire existant (qui contient le fichier texte que
'je viens de créer avec ces 2 méthodes) vers un autre que
'j'ai créé dans une autre portion de code.. et qui existe aussi, j'ai vérifié dans mon debug.
' Pourtant l'exception mentionnée ci-dessus apparaît ici.
End Sub
Private Sub Sauvegarde_Controles(ByVal Conteneur As Object, ByVal Str_Writer As StreamWriter, ByVal Path_File As String)
For Each ctrl As Object In Conteneur.Controls
If TypeOf ctrl Is TableLayoutPanel Or TypeOf ctrl Is Panel Then
Sauvegarde_Controles(ctrl, Str_Writer, Path_File)
' C'est une fonction récursive qui s'affranchit du nombre de conteneurs
Else ' Traitement lorsque l'on arrive sur les contrôles à sauvegarder
...
End If |
Partager