Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VBS: PDF Formular x-mal in Ordner kopieren und nach Liste umbenennen

Frage Entwicklung

Mitglied: Juweee

Juweee (Level 1) - Jetzt verbinden

12.10.2017, aktualisiert 13:14 Uhr, 189 Aufrufe, 1 Kommentar, 1 Danke

Moin
Leider hab ich für folgendes Problem nur einen theoretischen Ansatz:
In einem Ordner "Source" liegt ein einzelnes PDF-Formular.
Dieses Formular wird in einem Ordner analog des jeweils aktuellen Monats, z.b. 10.17., 11.17, usw. x-mal benötigt.
(soweit der Ordner noch nicht existiert soll erangelegt werden)
Die Anzahl der jeweiligen Kopien richtet sich nach einer Textdatei\CSV in der ";"-getrennt bis zu 12 Name stehen.
(z.B. Max M, Lieschen M, Horst V,...)
Am Ende sollen genauso viele Kopien der Einzeldatei aus Source mit den entsprechenden Namen im Monatsordner stehen.
Einige Dinge wie kopieren oder auch Ordner anlegen, ggf. prüfen nach Exist sind mir aus früheren kleinen Scripte klar, hierbei stehe ich allerdings ziemlich im Wald

Ich freu mich über alles was mir an der Stelle weiterhilft und sag schon mal Danke im Voraus

VG, Uwe
Mitglied: 134464
LÖSUNG 12.10.2017, aktualisiert um 13:45 Uhr
Wenn die CSV so aussieht, (keine Ahnung wie du das meintest (Du schreibst ; getrennt und oben dann mit Komma???)
01.
Name1 
02.
Name2 
03.
Name3 
04.
Name4
dann:
01.
Const ROOT = "C:\Ordner" 
02.
Const PDF = "D:\vorlage.pdf" 
03.
Const CSV = "D:\datei.csv" 
04.
Set fso = CreateObject("Scripting.FileSystemObject") 
05.
strDate = Right("0" & Month(Date),2) & "." & Right(Year(Date),2) 
06.
strFolder = ROOT & "\" & strDate 
07.
arrNames = Split(fso.OpenTextFile(CSV,1).ReadAll(),vbNewLine) 
08.
If Not fso.FolderExists(strFolder) Then fso.CreateFolder strFolder 
09.
For Each name In arrNames 
10.
	If Trim(name) <> "" Then 
11.
		strTarget = strFolder & "\" & Trim(name) & ".pdf" 
12.
		If Not fso.FileExists(strTarget) Then fso.CopyFile PDF,strTarget,False 
13.
	End If 
14.
Next 
15.
MsgBox "Fertig"
Wenn die CSV dagegen so aussieht
01.
Name1;Name2;Name3
dann:
01.
Const ROOT = "A:\test" 
02.
Const PDF = "A:\demo.pdf" 
03.
Const CSV = "A:\datei.csv" 
04.
Set fso = CreateObject("Scripting.FileSystemObject") 
05.
strDate = Right("0" & Month(Date),2) & "." & Right(Year(Date),2) 
06.
strFolder = ROOT & "\" & strDate 
07.
arrNames = Split(fso.OpenTextFile(CSV,1).ReadAll(),";") 
08.
If Not fso.FolderExists(strFolder) Then fso.CreateFolder strFolder 
09.
For Each name In arrNames 
10.
	If Trim(name) <> "" Then 
11.
		strTarget = strFolder & "\" & Trim(name) & ".pdf" 
12.
		If Not fso.FileExists(strTarget) Then fso.CopyFile PDF,strTarget,False 
13.
	End If 
14.
Next 
15.
MsgBox "Fertig"
Rechnung kommt dann per Post ...
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Ordner anhand einer Excel-Liste kopieren
gelöst Frage von xsto123Batch & Shell6 Kommentare

Hallo, gibt es eine Möglichkeit, Ordner anhand einer Excel-Liste von einem Pfad in den anderen zu kopieren? Excel-Liste: Spalte ...

Batch & Shell
Mittels Batch Ordner umbenennen und Dateien kopieren
gelöst Frage von held.christophBatch & Shell12 Kommentare

Guten Tag allerseits Ich bin absoluter Leihe und konnte Dank mehr oder weniger grossen Suche in den Foren bereits ...

Sonstige Systeme
PDF-Formulare mit handschriftlicher Unterschrift
Frage von FenjaWSonstige Systeme19 Kommentare

Hallo Zusammen, ich hoffe ihr könnt mir helfen. Ist es möglich ein PDF Dokument zu erstellen und mit einer ...

Batch & Shell
Pdf Files umbenennen
Frage von SacredBatch & Shell7 Kommentare

Hallo ihr Lieben Ich stehe vor folgendem Problem. Ich habe 600 pdf-Files die umbenannt werden sollen. Der Aktuelle name ...

Neue Wissensbeiträge
Microsoft Office

Office 2010 Starter erneut auf einer frischen Windows-Version installieren

Tipp von Lochkartenstanzer vor 1 TagMicrosoft Office9 Kommentare

Moin, vor ein paar Tagen schlug bei mir ein Kunde auf, der sein Widnows 7 geschrottet und es inklusive ...

Datenbanken

Upgrade MongoDB 3.4 auf 3.6

Erfahrungsbericht von Frank vor 1 TagDatenbanken

Seit kurzem gibt es das 3.6 Update für die MongoDB: Sicherheit, das Sortieren, Aggregation und auch die Performance wurde ...

SAN, NAS, DAS

Backdoor Zugang und Upload-Bug in vielen Western Digital MyCloud Geräten

Information von Frank vor 1 TagSAN, NAS, DAS2 Kommentare

James Bercegay von der Firma Gulftech hat die Fehler an Western Digital gemeldet und das Unternehmen stellt bereits ein ...

Microsoft Office

Outlook 2016 - Beim Weiterleiten keine PDF Anhänge mehr - KB4011626 entfernen

Erfahrungsbericht von Deepsys vor 1 TagMicrosoft Office3 Kommentare

Wenn ihr feststellt das ihr beim Weiterleiten von E-Mails keine PDF Anhänge mehr versendent, dann dankt Microsoft. Diese tolle ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

Drucker und Scanner
Gesucht DIN A3 Drucker
Frage von NebellichtDrucker und Scanner15 Kommentare

Hallo, ich möchte einen neuen DIN A3 Drucker kaufen. Um ab und zu, ca. 1 mal die Woche Farbausdrucke ...

iOS
Einladung vom iphone kalender
Frage von jensgebkeniOS15 Kommentare

Hallo Gemeinschaft, folgendes Problem - immer wenn ich von meinem Iphone einen Termin einztrage und diesem Termin Teilnehmer zuweise, ...

Windows Netzwerk
Drucker isolieren in Windows Domäne
gelöst Frage von lcer00Windows Netzwerk14 Kommentare

Hallo zusammen, habe eine Windows-AD (2012R2) in der es einen Druckerserver gibt. Mittlerweile verliere ich das Vertrauen in die ...