Imports System
Imports System.IO
Namespace Librairie_VB Public Class GestionFichiers Private privateCheminFichier As String = String.Empty Public ReadOnly Property CheminFichier() As String Get Return (Me.privateCheminFichier) End Get End Property Public Sub New(ByVal fichier As String) Me.privateCheminFichier = fichier End Sub Public Sub CopieFichier(ByVal cheminFichierDestination As String, ByVal ecrasement As Boolean) ' On vérifie si le fichier de destination n'existe pas déjà If File.Exists(cheminFichierDestination) Then ' Si demandé, on écrase le fichier de destination If ecrasement Then File.Delete(cheminFichierDestination) Else Throw New IOException(String.Format("Le fichier de destination '{0}' existe déjà.", cheminFichierDestination)) End If End If ' On ouvre le fichier de destination en écriture Dim fileStreamDestination As New FileStream(cheminFichierDestination, FileMode.Create, FileAccess.Write) ' On ouvre le fichier d'origine en lecture Dim fileStreamOriginal As New FileStream(Me.privateCheminFichier, FileMode.Open, FileAccess.Read) ' On lit le prochain octet Dim octet As Integer = fileStreamOriginal.ReadByte() While octet <> -1 ' On écrit l'octet fileStreamDestination.WriteByte(CType(octet, Byte)) octet = fileStreamOriginal.ReadByte() End While fileStreamOriginal.Close() fileStreamDestination.Close() End Sub End Class
End Namespace
Namespace Librairie_VB Public Class CopieDemarrageEventArgs Inherits System.EventArgs Private privateFichierSource As String =