La version la plus basique possible serait certainement :

Option Explicit
Const ForWriting = 2, ForReading = 1, ForAppending = 8

Dim objFSO, fic1, fic2, fic1_op, fic2_op, fic1_rl, fic2_rl,...