marcushb
Goto Top

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

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

LennyLinux
LennyLinux 05.02.2014 aktualisiert um 13:15:17 Uhr
Goto Top
Unter verwendung welcher Sprache möchtest du dies tun?? VB.NET C.NET JAVA VBA VB ...

Grüße Lenny Linux
marcushb
marcushb 05.02.2014 um 13:18:16 Uhr
Goto Top
Hi,

Unter Windows entweder Batch oder VBScript.

Danke

Gruß
Marcus
colinardo
Lösung colinardo 05.02.2014, aktualisiert am 14.02.2014 um 13:44:50 Uhr
Goto Top
Hallo Marcus,
Pfade entsprechend anpassen ...
back-to-topBatch:
@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"  
)
back-to-topVBS:
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
marcushb
marcushb 14.02.2014 um 13:45:21 Uhr
Goto Top
Hallo Uwe,

vielen Dank nochmal an dieser Stelle für die Hilfe ! Hat alles wunderbar geklappt !

Gruß
Marcus