Dateien aus Ordner kopieren und umbennen_FSO
01.02.2017 08:23:20
Max
ich stehe völlig auf dem Schlauch. Ich habe ein Programm geschrieben, welches Dateien aus einem Quellordner in einen Zielordner kopiert.
Das Programm soll wie folgt funktionieren:
1. Es wird eine Liste mit Ordnerpfaden abgearbeitet, welche es zu kopieren gilt (funktioniert bisher)
2. Die Dateien werden in den Zielordner kopiert (funktioniert bisher)
3. Das Programm soll nach dem Kopiervorgang einer jeden Datei den Dateinamen in beispielsweise "_Copy" ändern bzw. hinzufügen. (bisher leider noch nicht vorhanden)
Nun zum Code:
For i = 2 to 5
FromPatch=tabelle1.cells(1,2) & tabelle2.cells(i,4) 'Quellordner
ToPath=tabelle1.cells(3,2) 'Zielordner
If Right(FromPath,1)="\" then
FromPath=Left(FromPath, Len(FromPath)-1)
End if
If Right(ToPath,1)="\" then
ToPath=Left(ToPath, Len(ToPath)-1)
End if
Set FSO=CreateObject("scripting.filesystemobject")
FSO.CopyFolder FromPath, ToPath, true
Next
Wie könnte ein entsprechender Befehl aussehen, welcher die kopierten Dateien direkt in Verbindung mit dem Kopiervorgang umbenennt? Bzw. wo müsste man einen solchen implementieren?
1. Programm liest über eine Schleife die Ordnerpfade aus einer Liste aus
2. Dateien aus Quellordner werden kopiert und in Zielordner eingefügt
3. kopierte Dateien aus Quellordner in neuem Zielordner werden nachdem eine
Zeile in der Pfadliste abgearbeitet wurde umbenannt.
Der Prozess des Umbennens soll für jeden Ordner der aus der Pfadliste kopiert wird erneut vorgenommen werden. Mein Schema soll so aussehen:
->Kopie Dateien Quellordner ->einfügen in Zielordner ->Rename Daten->Repeat
Vielen Dank im Voraus für die Hilfe!
Liebe Grüße
Max