Liste zu kopierender Dateien einlesen und kopieren

Hallo,

ich habe eine txt datein, in der dateinamen drin stehen. Diese liste möchte ich einlesen und die dateien von einem in ein anderes verzeichnis kopieren.

Wie man mit vbs dateien kopiert ist mir bekannt, aber nicht, wie ich ein liste einlese und das ganze dann durch eine schleife jage.

Vielen dank für die hilfe.

Liste = "D:\Dateiliste.txt"  

Set fso = CreateObject("Scripting.FileSystemObject")  
For Each File In Split(fso.OpenTextFile(Liste).ReadAll, vbCrLF)
    WScript.Echo File 'bzw der Kopierbefehl  
Next