Files anhand eines Textfiles kopieren - Dateinamen nur bedingt verfügbar - Wildcard copy

@echo off
set "textdatei=C:\Temp\info.txt"  
for /f "usebackq delims=" %%a in ("%textdatei%") DO @(  
  copy "C:\temp\source\de_%%a_*.pdf" "C:\temp\target"  
)

Set fso = CreateObject("Scripting.Filesystemobject")  
textfile = "C:\temp\info.txt"  
sourcepath = "C:\temp\source"  
targetpath = "C:\temp\target"  
arrLines = Split(fso.OpenTextFile(textfile).ReadAll(),vbNewLine,-1,1)

For i = 0 To UBound(arrLines)
	line = Trim(arrLines(i)) 
	If line <> "" Then  
		On Error Resume Next
		fso.CopyFile sourcepath & "\de_" & line & "_*.pdf", targetpath & "\"  
	End If
Next
MsgBox "Fertig"