Thema Datum  Von Nutzer Rating
Antwort
Rot Dateien kopieren und direkt umbennen_FSO
 31.01.2017 17:11:22 Sophia
NotSolved
31.01.2017 19:42:32 Gast82820
NotSolved
01.02.2017 08:02:22 Gast99177
NotSolved
01.02.2017 08:07:04 MrLover
NotSolved

Ansicht des Beitrags:
Von:
Sophia		 Datum:
31.01.2017 17:11:22		 Views:
1180		 Rating:
     
Antwort:
  Ja
Thema:
Dateien kopieren und direkt umbennen_FSO

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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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

 

 

 

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Dateien kopieren und direkt umbennen_FSO
 31.01.2017 17:11:22 Sophia
NotSolved
31.01.2017 19:42:32 Gast82820
NotSolved
01.02.2017 08:02:22 Gast99177
NotSolved
01.02.2017 08:07:04 MrLover
NotSolved