Office: Alle Unterordner automatisch umbenennen

Hallo zusammen,

ich habe folgendes Problem:

Ich habe einen Windows-Ordner "Equipment" mit ca. 500 Unterordner, alle mit einer Nummer benannt.

In jedem Ordner befindet sich die gleiche Struktur:

01 Allgemein
02 Bedienungsanleitung
03 ...
04 ...


Ich bräuchte nun ein Makro dass die Ordner alle umbenennt, der Pfad bleibt der gleiche.


Ich weiß dass ich mit diesem Code arbeiten muss

Name "c:verzeichnis_alt" As "c:verzeichnis_neu"

Aber wie mache ich das mit jedem Ordner?
Mit der "For Each" Methode?


Vielen Dank im Vorraus,

Gruß
Hias

:)

 

Hallo Hias,

wie sieht das genau aus?

\Oberordner\Unterordner 1\01 Allgemein
\Oberordner\Unterordner 1\02 Bedienungsanleitung
...
\Oberordner\Unterordner 2\01 Allgemein
\Oberordner\Unterordner 2\02 Bedienungsanleitung
?

Welcher Name soll nun wie geändert werden? Nach welchem Muster?

Beschreibe das ganze bitte etwas konkreter.

Grüße
EarlFred

 

Hallo EarlFred,

Danke für die schnelle Antwort,

Ich habe es mal an einen kleinen Beispiel deutlicher gemacht:
Jeweils im letzten Ordner wird der Name aller Ordner geändert.

Jetzt kommt aber die Herausforderung:
Im Ordner "Oberordner" befinden sich ca. 500 Ordner (1234, 5264,2647,2567, usw) alle haben aber die gleiche Unterordnerstruktur.

In jedem dieser Ordner müssen die Unterordner geändert werden.



Code:

Ich hoffe es ist jetzt ein bisschen klarer.

Viele Grüße
Hias

 

Vielleicht so Code:

 

Vielen Dank Storax,

Dies könnte durchaus ein Ansatz sein. Nur wo kommt mein Pfad für die einzelnen Unterordner (101 Allgemein, 102 ...) hin?

Gruß Hias

 

Nirgends, es sollen ja alle Unterordner umbenannt werden, deshalb werden die durchgeloopt. Du solltest vielleicht nochmal prüfen, ob der Pfad richtig aufgebaut ist.
Wenn ich das richtig sehe habe ich ein \ vergessen, und zwar hier Code:

 

Hallo,

der / (andersrum) ist glaube ich in diesem Forum nicht sichtbar.

Wo kommt der denn hin?

Was bedeutet denn die "1" in dieser Zeile?

Viele Grüße
Hias

 

So müsste es richtig sein Code:

Wo ist der Unterschied?

 

Hallo,

Ah ich stand eben etwas auf dem Schlauch.

Habe es überarbeitet, in ein Modul reingepackt und per Knopfdruck gestartet.

Leider kommt eine Fehlermeldung:

"Fehler beim Kompilieren
Benutzerdefinierter Typ nicht definiert"


Gruß
Hias

 

Unter Extras/Verweise im VBE Microsoft Scripting Runtime auswählen

 

Habe ich gemacht

Nun nächste Fehlermeldung:

"Fehler beim Kompilieren"
"Falsche Anzahl an Argumenten oder ungültige Zuweisung einer Eigenschaft"



Im Code wird

Sub LoopThroughMainDir() gelb markiert
RenameSubfolder sngFolder blau markiert



Vielen Dank im Vorraus
Gruß Hias

 

Hallo zusammen.

Hat einer eine Idee für diese Fehlermeldung?


Vielen Dank und Gruß
Hias

 

Bei mir wird es ohne Fehler kompiliert.

So langsam müsstest Du mal eine Beispieldatei hochladen und werfe auch mal hierauf und hierauf einen Blick.

 

Habe die Datei mal hochgeladen.

Der Haupt-Ordnerpfad bei mir ist:

C:/test/01

In diesen Ordner sind viele Ordner beschriftet mit einer Nummer.
In jeden dieser Ordner ist nun die gleiche Struktur, in welcher die Beschriftung geändert werden muss. (01 Allgemein zu 101 Allgemein zum Beispiel)

C:/test/01/1234/01 Allgemein
02 ...
03 .....

C:/test/01/2585/01 Allgemein
02 ...
03 .....

C:/test/01/66666/01 Allgemein
02 ...
03 .....



Viele Grüße
Hias

 

Copy & Paste musst Du schon selber können!!

Das finde ich in Deiner Beispieldatei Code:

Was habe ich oben gepostet.