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

Hallo zusammen,

ich habe eine Textdatei mit RG Nummer und möchte die dazugehörigen PDF Rechnungen aus einem Archiv kopieren.

Die Textdatei sieht so aus:

12346
12347
12528
etc

Die PDFs lautet aber:

de_12346_140205.pdf
de_12347_140204.pdf
etc

Wie kann ich mit Wildcards die Files aus dem Verzeichnis kopieren ?

Hoffe jemand hat eine idee ..

DAnke & Gruß
Marcus

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 228802

Url: https://administrator.de/contentid/228802

Ausgedruckt am: 17.11.2024 um 09:11 Uhr

4 Kommentare

Neuester Kommentar

Unter verwendung welcher Sprache möchtest du dies tun?? VB.NET C.NET JAVA VBA VB ...

Grüße Lenny Linux

Hi,

Unter Windows entweder Batch oder VBScript.

Danke

Gruß
Marcus

Hallo Marcus,
Pfade entsprechend anpassen ...

Batch:

@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"  
)

VBS:

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"  

Grüße Uwe