Copier un fichier sans utiliser l'instruction "FileCopy"

 wpe2.gif (1107 octets)exemple.mdb

Function CopieFichier(FichierOrigine As String, FichierDestination As String, OverWrite As Integer)
'But : Effectuer une copie d'un fichier sans utiliser la fonction FileCopy
'FichierOrigine : Nom du fichier à copier
'FichierDestination : Nom du fichier de destination
'OverWrite : à vrai s'il faut toujours supprimer une ancienne version
' du fichier de destination
' à faux si on veut annuler la copie lorsque le fichier de destination existe
' déjà
'Retourne vrai si la copie s'est bien déroulée.
Dim Longueur, i, Increment, Reste, Octet As Long
Dim Tampon(1024) As Byte

On Error GoTo Err_CopieFichier

If Len(Dir(FichierOrigine)) = 0 Then
CopieFichier = False
Exit Function
End If

If Len(Dir(FichierDestination)) <> 0 Then
If Not OverWrite Then
CopieFichier = False
Exit Function
End If
End If

Open FichierOrigine For Binary Access Read Lock Read Write As #1
Open FichierDestination For Binary Access Write As #2
Longueur = LOF(1)

Increment = (Longueur \ 1024)
Reste = (Longueur Mod 1024)

For i = 0 To Increment
Get #1, , Tampon
Put #2, , Tampon
Next i

For i = 0 To Reste
Get #1, , Octet
Put #2, , Octet
Next i

Close #1
Close #2

CopieFichier = True

Exit Function
Err_CopieFichier:
CopieFichier = False
Exit Function
End Function