Discussion :

[ADESPO]

Bonjour,
Je suis en train d'adapter un code en visual basic et je suis confronté à un souci qui me bloque pas mal,je suis pas un pro de la manipulation de fichiers . Je vois pas trop comment faire la manip.
J'ai un lecteur reseau z: qui contient plusieurs dossiers type 050679-01 et à l’intérieur toujours 2 fichiers txt: 050679-01.txt et ref.txt (le ref se nomme toujours ainsi alors que l'autre change mais toujours 6chiffres+2 xxxxxx-xx,
le nom de dossier est le même que celui du fichier contenu)
J'aimerais faire un merge de ces 2 fichiers contenu dans chaque dossiers dans z:, et créer un nouveau fichier qui serait écrit dans w: , de cette manière par exemple 050679-01merge.txt qui serait un fichier contenant les informations de xxxxxx.xxx et de ref.txt.
Voila si quelqu'un à une idée elle serait bienvenu
Par avance merci et bonnes fêtes.

[mdevaux62]

Bonjour et joyeux Noël !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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