VBS脚本或批处理，如何根据列表文件批量复制指定文件 目录结构不变

Question

请问如何根据列表文件, 例如list.txt, 内容如下:
list.txt
---------------------begin---------------------
d:\game\qq\bin\qq.exe
---------------------end-----------------------

参考
On Error Resume Next

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objfso.OpenTextFile("d:\rpt\lists.txt",1)

strYear = Year(Date)
strMonth = Month(Date)
If strMonth < 10 Then
strMonth = "0" & strMonth
End If
strDay = Day(Date)
If strDay < 10 Then
strDay = "0" & strDay
End If

strToday = strYear & strMonth &strDay

Do Until objFile.AtEndOfStream
strTemp = objFile.ReadLine
objfso.CopyFile "d:\rpt\" & strToday & "\" & strTemp,"e:\rpt\",True
Loop

Answer 1

@echo off
setlocal enabledelayedexpansion
目标盘符=g
for /f "tokens=1,2 delims=:" %%i in (list.txt) do echo F|xcopy "%%i:%%j" "%目标盘符%:%%j"