Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1380to1384
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Ordner - Unterordner

Ordner - Unterordner
16.09.2014 20:09:40
Marie
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

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

Betreff
Datum
Anwender
Anzeige
Ja, m.1em entsprd Pgm, aber das ist KEINE XlFrage!
17.09.2014 09:52:21
Luc:-?
Gruß, Luc :-?

AW: Ordner - Unterordner
17.09.2014 11:19:56
Marie
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

Nein, natürlich nicht! Deine Frage hat nichts ...
17.09.2014 11:45:38
Luc:-?
…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 :-?

AW: Ordner - Unterordner
17.09.2014 12:24:23
Peter
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige