| 12
 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