Dateien fortlaufend umbennen

Forumthread: Dateien fortlaufend umbennen

12.08.2015 13:38:50

Frank

Hallo,
ich habe im Ordner L:\Dateien
diverse Dateien stehen.
Alle haben eine Nummer und heissen:
Datei__5 von 745.xlsx
Datei__11 von 745.xlsx
usw.
Alle haben halt eine Nummer, aber nicht fortlaufend.
Ich möchte nun alle Dateien fortlaufend numeriert haben.
Datei__1 von 745.xlsx
Datei__2 von 745.xlsx
usw.
kann mir da bitte jemand den code geben.
Vielen Dank
Gruß Frank

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: für derartige Aktionen: Total Commander ...

12.08.2015 13:45:59

...
Das hilft mir mom nicht weiter.

12.08.2015 13:59:52

Frank
AW: Dateien fortlaufend umbennen

12.08.2015 13:59:28

Rudi
Danke Rudi o.w.t.

12.08.2015 14:02:44

Frank

AW: für derartige Aktionen: Total Commander ...

12.08.2015 13:45:59

...

Hallo Frank,
... der TC ist mehr als nur ein Tool und kann natürlich noch viel mehr als nur das von Dir gewünschte.
Ich möchte den TC jedenfalls nicht mehr missen. Sieh dazu mal hier: http://www.ghisler.com/
Gruß Werner
.. , - ...

Das hilft mir mom nicht weiter.

12.08.2015 13:59:52

Frank

Kann bitte jemand einspringen ;-)
Danke

AW: Dateien fortlaufend umbennen

12.08.2015 13:59:28

Rudi

Hallo,

Sub aaa()
Dim i As Integer, sFile As String
Const sPfad As String = "L:\Dateien\"
sFile = Dir(sPfad & "*.xlsx")
Do While sFile  ""
i = i + 1
Name sPfad & sFile As sPfad & "Datei_" & i & " von 745.xlsx"
sFile = Dir
Loop
End Sub

Gruß
Rudi

Danke Rudi o.w.t.

12.08.2015 14:02:44

Frank

Forumthread: Dateien fortlaufend umbennen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread