Office: Alle Unterordner automatisch umbenennen

Habe ich gemacht - nun funktioniert es.

Tut mir leid, ich habe etwas rumprobiert, da anfangs der kopierte Code nicht lief. Vielleicht lag es daran dass ich unter Extras/Verweise im VBE Microsoft Scripting Runtime nicht ausgewählt habe.


Auf jeden Fall Danke!!

Wie würde denn der Code aussehen wenn man nicht nur eine Zahl hinzufügt, sondern den Namen Komplett ändert zum Beispiel:

101 Allgemein zu 500 XYZ


Viele Grüße
Hias

 

Wie lautet die Regel für das Umbenennen?
Hinweis: Deine erste Regel war, jeweils eine 1 an das Verzeichnis vorne zu hängen. Und jetzt?

 

Oh Entschuldigung:

Die Regel würde dann sozusagen eigentlich lauten:

Lösche die Alte Beschriftung und benenne Sie neu

Gibt es vielleicht einen "Replace-Code" ?

Viele Grüße
Hias

 

Die Regel ist zu allgemein. Das war ja auch die Regel im ersten Fall *frown.gif*
Wenn Du das nicht beschreiben kannst, kann man Dir nicht helfen.

 

Hallo,

okay ich versuche es genauer:

In jeden dieser Unterordner (wie vorher auch schon) soll der Ordner 101 Allgemein unbenannt werden zu 500 XYZ


Code:

Um den Ordner umzubenennen würde ich folgenden Code verwenden:

Code:

Da dieser Code aber nur für den Überordner 2585 gilt und nicht alle Ordner durchläuft, komme ich hier nicht weiter.


Grüße Hias

 

Ok, ich glaube, ich habe es verstanden, dann so
Code:

 

Guten Morgen,

Vielen Dank! ich denk mir gerade, da hätt ich auch selber drauf kommen können..

Ich habe in dieser Zeile noch einen / eingefügt, sonst verschiebt er die Dateien in den Oberordner:

Code:

Jetzt funktionierts!


Gruß Hias

 

Ups, richtig, Backslashes ( \ ) werden immer verschluckt, wenn man da nicht dran denkt, das richtig aufzubereiten