[foss]

Dim mas(1000) 'массив из файлов
i=0
'считывание построчно файла, и запись их в массив
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile(C:\1.txt,1 , True) 'C:\1.txt напиши путь где лежит файл
Do While tf.AtEndOfStream <> True
mas(i)=tf.ReadLine
i=i+1
Loop
tf.Close

а потом задаешь копирование каждого файла из массива куда тебе надо