Microsoft Excel

Herbers Excel/VBA-Archiv

Ordner - Unterordner

Betrifft: Ordner - Unterordner von: Marie Christin
Geschrieben am: 16.09.2014 20:09:40

Hallo,

ich habe eine Frage, die hoffentlich nicht für Gelächter sorgt, unter den Experten. :-)

Ist es möglich wenn ich einen Ordner erstelle, der 5 Unterordner hat, daß die Laufnummer des Ordners automatisch auch den Unterordnern zugeordnet wird?

Beispiel: Ordner 14 - 205

Unterordner 1 heißt immer ANG, soll dann ANG 14 - 205 heißen.
Unterordner 2 heißt immer SCH, soll dann SCH 14 - 205 heißen.
Unterordner 3 heißt immer PLN, soll dann PLN 14 - 205 heißen.
Unterordner 3 heißt immer SVK, soll dann SVK 14 - 205 heißen.
Unterordner 3 heißt immer MAH, soll dann MAH 14 - 205 heißen.

Ohne das ich jeden Ordner öffnen muss und die Unterordner umbenennen muss.

Das würde mir bei ca 500 Mappen / Ordnern eine Menge Zeit ersparen.

Ich bedanke mich im vorraus und hoffe, dass ich es einigemaßen verständlich machen konnte.

Gruß

Marie Christin

  

Betrifft: Ja, m.1em entsprd Pgm, aber das ist KEINE XlFrage! von: Luc:-?
Geschrieben am: 17.09.2014 09:52:21

Gruß, Luc :-?


  

Betrifft: AW: Ordner - Unterordner von: Marie Christin
Geschrieben am: 17.09.2014 11:19:56

Hallo Luc,


danke für deine Antwort.

Jetzt die entscheidende Frage, ist das die Lösung was du mir geschickt hast?
Wenn ja, bin ich glücklich, weiß aber nicht wie ich das einsetze.
(Ich meine in der Praxis umsetzen kann)


Gruß

Marie Christin


  

Betrifft: Nein, natürlich nicht! Deine Frage hat nichts ... von: Luc:-?
Geschrieben am: 17.09.2014 11:45:38

…mit dem Gegenstand dieses Forums zu tun, Marie Christin,
stelle sie bitte in einem Windows- bzw VB- oder anderem Programmierungsforum.
Deshalb hattest du bisher wohl auch noch keine Antwort bekommen.
Gruß, Luc :-?


  

Betrifft: AW: Ordner - Unterordner von: Peter
Geschrieben am: 17.09.2014 12:24:23

Hallo

Hier ein kleines VBScript. Ich hab den Rename auskommentiert damit Du zuerst das gewünschte Ergebnis überprüfen kannst (Hauptordner Bitte anpassen). Kopieren den Inhalt in ein Textfile mit Extension ".vbs"(z.b. "MeinRename.txt"). Aufruf erfolgt über die Kommandline mit "cscript MeinRename.vbs". Aber Vorsicht: Durch wiederholtes Aufrufen werden Deine Ordner immer wieder neu benannt, bist du im falschen Verzeichnis kannst Du Dir das ganze System kapput machen!

-----
'Bitte anpassen!'
MainOrder = "E:\MeinOrdner\"

Set WShell = WScript.CreateObject ("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

Set MainFolder = fso.GetFolder(MainOrder)
Set MoreFolders = MainFolder.SubFolders

For Each TempFolder In MoreFolders
Wscript.echo TempFolder.name
set MuchMoreFolders = Tempfolder.Subfolders

'Bitte anpassen!'
' Schneidet z.B. die erste 7 Zeichen ab'
myNewExtension= mid(TempFolder.Name,8,len(TempFolder.Name)-4)

For Each Temp2Folder in MuchMoreFolders
NewFolderName = Temp2Folder.Name & "_" & MyNewExtension
Wscript.echo " " & Temp2Folder.name, "NewFolderName:" & NewFolderName

' Hier wird der Folder umbenannt! '
' Erst auskommentieren wenn der Output passt '
'Temp2Folder.Name = NewFolderName

next

Set MuchMoreFolders = NOTHING

Next

Set Main_Folders = NOTHING
Set More_Folders = NOTHING



 

Beiträge aus den Excel-Beispielen zum Thema "Ordner - Unterordner"