|
Hallo,
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 Dateipfaden abgearbeitet, welches es zu kopieren gilt (klappt)
2. Die Dateien werden in den Zielordner kopiert (klappt)
3. Das Programm soll nach dem Kopiervorgang einer jeden Datei den Dateinamen in beispielsweise "_Kopie" ändern bzw. hinzufügen. (bisher leider noch nicht vorhanden)
Nun zum Code:
For i = 2 to 50
FromPatch=tabelle1.cells(5,2) & tabelle2.cells(i,4) 'Quellordner
ToPath=tabelle1.cells(6,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
Zu meiner Frage:
Wie könnte ein entsprechender Befehl aussehen, welcher die kopierten Dateien direkt beim Kopiervorgang umbenennt? Bzw. wo müsste man einen solchen implementieren?
Vielen Dank im Voraus für die Hilfe!
Liebe Grüße
Sophia
|