Boucle de concaténation de fichier sous dos

Bonjour,

Vue ta configuration, tu n'es pas obligé d'utiliser un .bat pour faire ta concaténation de fichier.
En passant par un .vbs (qui s'exécute aussi bien qu'un .bat sous windows) cela donne :

repertoire="TON_REPERTOIRE"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set ficOUT = FSO.CreateTextFile("FICHIER_RESULTAT")
Set rep=FSO.GetFolder(repertoire)

Set files = rep.Files
for each file In files
Set ficIN = FSO.OpenTextFile(file)
while not ficIN.AtEndOfStream
ficOUT.writeline (ficIN.readline)
wend
ficIN.close
next

ficOUT.close

Ou, encore plus simple, avec la commande Dos : copy.

copy TON_REPERTOIRE/* FICHIER_RESULTAT


Note : avec cette solution, il faut que chaque fichier se termine avec un retour chariot. Sinon la derniere ligne du fichier sera concaténée avec la première ligne du fichier suivant.