1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
| Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'Test de la fonction AssemblerFichiers
Dim err As Exception = AssemblerFichiers("C:\Mon fichier.txt", "C:\Mon autre fichier.txt", "D:\Mon fichier assemblé.txt")
If err IsNot Nothing Then
MessageBox.Show(err.Message)
Else
MessageBox.Show("Copie réalisée.")
End If
End Sub
Private Function AssemblerFichiers(fichier1 As String, fichier2 As String, fichierDestination As String) As Exception
'Fonction AssemblerFichiers
Dim erreur As Exception = Nothing
With My.Computer.FileSystem
Try
'Copie du 1er fichier
.CopyFile(fichier1, fichierDestination, True)
'Lecture du second fichier
Dim donneesSup() As Byte = .ReadAllBytes(fichier2)
'Transfert des données du second fichier dans le fichier de destination (append = True)
.WriteAllBytes(fichierDestination, donneesSup, True)
Catch erreur
'
End Try
End With
Return erreur
End Function |
