open "LeGrosfichier_de_destination.ext" for binary as #numgrosfichier 'tu fais pour chaque fichier for each Files in ListFiles Open "LeFichier.ext" for "binary" as #numfichier strTemp = space(lof(#numfichier)) Get #numfichier, strTemp put #numgrosfichier, strTemp close #numfichier next close #numgrosfichier