Public Sub ApercuPublication() clsSauvegarde.AddPath("AppExe", Application.ExecutablePath) clsSauvegarde.AddPath("AppPath", Application.StartupPath) clsSauvegarde.SavePath() Dim myPaths() As clsSauvegarde.BackupPath.Parametres = clsSauvegarde.GetPaths End Sub
Imports System.Runtime.Serialization.Formatters.Binary Imports System.IO Public Class clsSauvegarde Shared CheminFichierParam As String = "Parametres.bin" <Serializable()> _ Public Class BackupPath Public Shared myBackupPath() As BackupPath.Parametres Public Structure Parametres Public Nom As String Public Chemin As String Public Attribut As FileAttribute End Structure Sub New() End Sub Sub New(ByVal NomVariable As String, ByVal Chemin As String) If myBackupPath Is Nothing Then ReDim myBackupPath(0) Else ReDim Preserve myBackupPath(myBackupPath.Length) End If myBackupPath(myBackupPath.Length - 1).Nom = NomVariable myBackupPath(myBackupPath.Length - 1).Chemin = Chemin myBackupPath(myBackupPath.Length - 1).Attribut = New IO.DirectoryInfo(Chemin).Attributes End Sub End Class Shared Sub AddPath(ByVal NomVariable As String, ByVal Chemin As String) Dim NewEntry As New BackupPath(NomVariable, Chemin) End Sub Shared Sub SavePath() Dim FluxDeFichier As FileStream = File.Create(CheminFichierParam) Dim Serialiseur As New BinaryFormatter Serialiseur.Serialize(FluxDeFichier, BackupPath.myBackupPath) FluxDeFichier.Close() End Sub Shared Function GetPaths() As BackupPath.Parametres() If File.Exists(CheminFichierParam) Then Dim FluxDeFichier As Stream = File.OpenRead(CheminFichierParam) Dim Deserialiseur As New BinaryFormatter() BackupPath.myBackupPath = CType(Deserialiseur.Deserialize(FluxDeFichier), BackupPath.Parametres()) FluxDeFichier.Close() Return BackupPath.myBackupPath End If Return Nothing End Function End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question