récupérer le contenu de plusisuers fichiers txt et les mettre dans un fichier

Bonjour, je débute en vbs et je dois faire un script qui doit récupérer le contenu de plusieurs fichiers TXT et le mettre dans un autre fichier.

par exemple : fichier1.txt (son contenu)=01234
fichier2.txt = abcdef

et le résultat devrait faire : fichierresultat.txt =
01234
abcdef

je vous remercie.

Salut
Bienvennue sur DVP.
Comment lire le contenu d'un fichier texte ?
Comment écrire dans un fichier texte ?

Merci mais j'avais bien vu ces articles mais je ne m'en sors pas pour autant :-(

Un exemple de code pour copier le contenu de 2 fichiers dans un autre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Const ForReading = 1 , ForAppending = 8 Dim oFso, fich1, fich2, fDest Dim ts1, ts2 Set oFso = CreateObject("Scripting.FileSystemObject") Set fich1 = oFso.OpenTextFile("c:\Tmp\test1.txt", ForReading) ts1 = fich1.ReadAll fich1.Close Set fich2 = oFso.OpenTextFile("c:\Tmp\test2.txt", ForReading) ts2 = fich2.ReadAll fich2.Close Set fDest = oFso.OpenTextFile("c:\Tmp\Resultat.txt", ForAppending,True) fDest.Write ts1 fDest.Write String(30,"=") & VbNewLine ' Séparateur entre les 2 textes(facultatif) fDest.Write ts2   fDest.Close

---

Si tes "plusieurs fichiers texte" sont dans un même répertoire, tu peux faire la même chose en utilisant une boucle For Each ...Next

Merci beaucoup cela va beaucoup m'aider ! juste encore une petite question comment je dois faire si je ne veux que le contenu qu'une seule fois (si j"execute plusierus le vbs je ne veux que le contenu qu'une seule fois)

Citation:

---

Envoyé par duduch33

Merci beaucoup cela va beaucoup m'aider ! juste encore une petite question comment je dois faire si je ne veux que le contenu qu'une seule fois (si j"execute plusierus le vbs je ne veux que le contenu qu'une seule fois)

---

Bonjour :) , Si j'ai bien compris votre Question donc il faut faire ceci : Au lieu d'utiliser

Code:

---

la Constante ForAppending = 8

---

,il faut utiliser

Code:

---

la Constante ForWriting = 2

---

Voila essaye ce

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Const ForReading = 1 , ForAppending = 8 , ForWriting = 2 Dim oFso, fich1, fich2, fDest Dim ts1, ts2 Set oFso = CreateObject("Scripting.FileSystemObject") Set fich1 = oFso.OpenTextFile("c:\Tmp\test1.txt", ForReading) ts1 = fich1.ReadAll fich1.Close Set fich2 = oFso.OpenTextFile("c:\Tmp\test2.txt", ForReading) ts2 = fich2.ReadAll fich2.Close Set fDest = oFso.OpenTextFile("c:\Tmp\Resultat.txt", ForWriting,True) fDest.Write ts1 fDest.Write VbNewLine & String(30,"*") ' Saut de ligne avec un Séparateur entre les 2 textes(facultatif) fDest.Write VbNewLine ' saut de ligne fDest.Write ts2 fDest.Close

---

Merci beaucoup !!!