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
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/forum/files-anhand-eines-textfiles-kopieren-dateinamen-nur-bedingt-verfuegbar-wildcard-copy-228802.html
Ausgedruckt am: 23.12.2024 um 14:12 Uhr
4 Kommentare
Neuester Kommentar
Hallo Marcus,
Pfade entsprechend anpassen ...
Grüße Uwe
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"