Bonjour à tous,
Voila plusieurs jours que j'essaye de copier le contenu de plusieurs fichiers texte, (contenu dans un dossier commun) dans un fichier que je créer.
J'arrive (enfin) à créer un fichier, puis à ordonner l'ouverture + l'écriture de ce fichier, mais je ne m'en sors pas quand à la copie du contenu des fichiers textes.
Pour l'instant mon code ressemble à ceci :
Je souhaiterai pouvoir copier le contenu des fichiers txt (dont le nombre est variable) bout à bout dans le fichier Recap.txt, quelqu'un pourrait-il m'aider?
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 Imports System.IO Imports System.Text Public Class Form1 Private Sub SelectFileToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SelectFileToolStripMenuItem.Click Dim fs As New FileStream("C:\Users\gperrin\Desktop\test\Recap.txt", FileMode.Append, FileAccess.Write, FileShare.Write) fs.Close() Dim sw As New StreamWriter("C:\Users\gperrin\Desktop\test\Recap.txt", True, Encoding.ASCII) Dim NextLine As String = "ici j'aimerai ajouter le contenu de tous les fichiers du repertoire" sw.Write(NextLine) sw.Close() End Sub End Class
Merci d'avance,
Cordialement
Partager