Reihenfolge der umbenannten Files
09.06.2015 11:03:17
Rolf
mit dem folgenden Makro lassen sich die Files eines Ordners schnell umbenennen ohne vorher die _ ursprünglichen Dateinamen auflisten zu müssen.
Sub jojo()
Dim Dateiname, Pfad As String, i As Integer
On Error Resume Next
Pfad = [D3]
i = 1
Dateiname = Dir$(Pfad & "*")
Do While Dateiname ""
Name Pfad & Dateiname As Pfad & Cells(i, "B")
i = i + 1
Dateiname = Dir$()
Loop
End Sub
Leider orientiert sich die Reihenfolge und damit die neuen Namen nicht an der alten Reihenfolge.
test1 sollte NeuFile1
test2 sollte NeuFile2
test3 sollte NeuFile3
usw werden.
Das Ergebnis sieht aber so aus:
test1 wird NeuFile1
test10 wird NeuFile2
test11 wird NeuFile3
Wie kann man erreichen, dass die Dateien in der ursprünglichen Reihenfolge abgearbeitet werden?
Gruß
Rolf