Dateien in Ordnername umbenennen

[2rb|Eriz]

Hallo,

Ich bräuchte ein Tool, welches es mir ermöglicht, die Dateinamen, die ein Ordner beinhaltet in dessen Bezeichnung umzubenennen.
Also der Dateiname soll gleich dem Ordnernamen sein. Per Hand würde es ewig dauern, da es hunderte Ordner sind.

Hat jemand eine Idee?
lg.

 

[A R 9 9]

Könnte mit Irfan-View funktionieren;
Batch-Umbenennen ...

 

[2rb|Eriz]

Hm...ja, geht in die richtige Richtung.
Die Frage ist nur, was ich bei den Optionen eingeben muss, um das o.g. zu erreichen ?

 

[little_skunk]

Also der Dateiname soll gleich dem Ordnernamen sein.

Ich hab dir mal eben ein VBScript geschrieben. Funktioniert wunderbar. Einfach die gewünschten Datein auf das Script ziehen und das Script macht den Rest. Jede Datei bekommt den Namen ihres Ordners aber behält ihre Dateiendung. Wenn noch Änderungswünsche bestehen einfach melden.

Set Shell = WScript.CreateObject("WScript.Shell")
Set Parameter = WScript.Arguments
For i = 0 to Parameter.Count - 1
	Set fso = CreateObject("Scripting.FileSystemObject")
	Ordner=fso.GetParentFolderName(Parameter(i))
	Dateiendung=fso.GetExtensionName(Parameter(i))
	Dateiname=fso.GetFileName(fso.GetParentFolderName(Parameter(i)))
	fso.MoveFile Parameter(i),Ordner + "\" + Dateiname + "." + Dateiendung
Next

 

[2rb|Eriz]

"einfach auf das script ziehen" ?
sry, ich weiß nicht was du meinst. Ich hab null Ahnung davon

 

[little_skunk]

1. VBScript auf deiner Festplatte speichern.
2. Sicherheitskopie der Datein, die du umbennen möchtest, anlegen
3. Alle Datein, die du umbennen möchtest markieren und per Drag and Drop auf die VBScript Datei ziehen.
4. Das Resultat begutachten.
5. Wenn alles geklappt hat, Sicherheitskopie löschen. Wenn nicht, Sicherheitskopie zurück spielen und mich steinigen.

 

[2rb|Eriz]

1. ääh...als .txt oder .bat oder wie?

 

[little_skunk]

1. ääh...als .txt oder .bat oder wie?

Wie wärs mit .vbs ?

 

[2rb|Eriz]

hm...funktioniert leider nicht :<

 

[little_skunk]

hm...funktioniert leider nicht :<

Das ist ja mal eine eindeutige Fehlerbeschreibung

 

[2rb|Eriz]

hehe sry ^^
kannst es ja selbst mal ausprobieren

Fehlerbericht:

Skript: K:\Muuuh\rename.vbs
Zeile: 8
Zeichen: 2
Fehler: Die Datei wurde nicht gefunden
Code: 800A0035
Quelle: Laufzeitfehler in Microsoft VBScript

 

[little_skunk]

1. ääh...als .txt oder .bat oder wie?

Nur nochmal zur Sicherheit. Hast du die Dateiendungen eventuell ausgeblendet? Wenn du die Irgendwas(.txt) in irgendwas.vbs(.txt) umbennenst, bringt das natürlich nichts. Das merkst du ganz einfach am Icon. Sollte in etwas so aussehen: http://wsh2.uw.hu/images/f01qj01.jpg

 

[2rb|Eriz]

Nur nochmal zur Sicherheit. Hast du die Dateiendungen eventuell ausgeblendet? Wenn du die Irgendwas(.txt) in irgendwas.vbs(.txt) umbennenst, bringt das natürlich nichts. Das merkst du ganz einfach am Icon. Sollte in etwas so aussehen: http://wsh2.uw.hu/images/f01qj01.jpg

jojo....ganz doof bin ich ja auch nicht ^^
hab nur noch nicht viel von VBScript gehört

 

[little_skunk]

hehe sry ^^
kannst es ja selbst mal ausprobieren

Hab ich. Bei mir funktioniert es. Versuch mal zum Spaß folgendes und sag mir was die Messagebox sagt. Da du jede Messagebox mit OK bestätigen musst, solltest du nur 2 Datein und nicht gleich 1000 nehmen.

Set Shell = WScript.CreateObject("WScript.Shell")
Set Parameter = WScript.Arguments
For i = 0 to Parameter.Count - 1
	Set fso = CreateObject("Scripting.FileSystemObject")
	Ordner=fso.GetParentFolderName(Parameter(i))
	Dateiendung=fso.GetExtensionName(Parameter(i))
	Dateiname=fso.GetFileName(fso.GetParentFolderName(Parameter(i)))
	'fso.MoveFile Parameter(i),Ordner + "\" + Dateiname + "." + Dateiendung
	msgbox Parameter(i) + " soll umbenannt werden in " + Ordner + "\" + Dateiname + "." + Dateiendung
Next

 

[2rb|Eriz]

Noch immer nicht:

Meldung:
K:\Filme\8mm soll umbenannt werden in K:\Filme\Filme

nach dem Klick auf OK passiert....nichts...

 

[little_skunk]

Meldung:
K:\Filme\8mm soll umbenannt werden in K:\Filme\Filme

Na da haben wir doch den Fehler. Du versuchst einen Ordner auf das Script zu ziehen richtig? Dafür ist das Script natürlich im Moment nicht ausgelegt. Du kannst dir aber mit der Windows Suche einfach den Inhalt des Ordners anzeigen lassen und dann die gewünschten Datein auf das Script ziehen.

 

[2rb|Eriz]

"8mm" war in dem Fall eine einzelne Datei, kein Ordner.

 

[little_skunk]

"8mm" war in dem Fall eine einzelne Datei, kein Ordner.

Dann hat diese Datei wohl keine Dateiendung. Das habe ich aber bei mir ebenfalls getestet und es funktioniert. Der ausgegeben String ist korrekt. Das Script sollte in der Lage sein diese Datei umzubennen. Falls nicht, verhält sich dein WSH (Windows Scripting Host) anders als meiner. Das kann ich dir aber erst heute Abend sagen wenn ich zuhause bin und das Script an meinem Windows 7 PC testen kann.

Das 1. Script kann Datein umbennen.
Das 2. Script kann dir zeigen was das 1. Script für Daten übergeben bekommt aber die Datei wird auch nach Drücken des OK Buttons nicht umbenannt weil die entsprechende Zeile auskommentiert ist.

Kann es eventuell sein, dass du dem 1. Script eine andere Datei als jetzt dem 2. Script übergeben hast?

 

[2rb|Eriz]

ah okay. jetzt geht es. ich dachte, du hattest das erste script bearbeitet, was dann das Zweite ergab. Habs jetzt nochmal mit dem ersten versucht und es geht!!

Vielen Dank für die Mühe

 

[little_skunk]

Vielen Dank für die Mühe

Nicht dafür. Sowas macht keine Mühe.

Wenn du das Script öfter verwendest, könnte man den Fehler auch noch abfangen oder das Script auch so erweitern, dass es den Inhalt eines Ordners selbstständig durchsucht. Von letzterem würde ich allerdings abraten. Einmal den falschen Ordner erwischt und schon ist das Geschrei groß. Dann doch lieber mit der Windows Suche vorher genau die Datei auswählen die man auch haben will.

An dieser Stelle auch ein Dank zurück an dich. Hast mich immerhin auch ertragen ohne Ausfallend zu werden. Da habe ich schon andere Sachen erlebt. Für das Script hab ich jetzt nicht mal 10 Minuten gebraucht. Es gibt aber auch Leute die wollen etwas komplexere Programme haben aber natürlich immer kostenlos. Ich hoffe der eine oder andere von denen ließt mit und wird vieleicht zum Nachdenken angeregt.

 

[Niranjana]

@little skunk.
ah, Du bist der clevere Skriptersteller. Verblüffent, was man so in 10 min. alles anstellen kann.

Kannst Du mir bitte sagen, was ich an dem skript ändern muss, dass alle Dateien, die mit den gleichen ersten 5 Zahlen anfangen zu je einem Ordner zusammengefasst werden, welcher die gleiche Nummer(die mit den 5 Zahlen) bekommen soll.

Beisp.: 00001xyz.jpg & 00001abc.jpg zusammenfassen in den ordner 00001

wenn es die sache etwas vereinfachen würde, dann lassen sich natürlich die order vorab erstellen. Somit müssten die zusammengefassten dateien, in die bereits bestehenden ordern hineinkopiert oder hineinverschoben werden.

 

[little_skunk]

Bitte vorher Sicherheitskopie anlegen. Das Script ist ungetestet. Ordner werden selbstständig angelegt ausgehend vom derzeitigen Speicherort jeder Datei.

Ansonsten wie gehabt mit Drag and Drop. Das Script ließe sich auch in das Kontextmenü des Explorers einbauen.

Set Shell = WScript.CreateObject("WScript.Shell")
Set Parameter = WScript.Arguments
For i = 0 to Parameter.Count - 1
	Set fso = CreateObject("Scripting.FileSystemObject")

	Pfad=fso.GetParentFolderName(Parameter(i))

	Datei=fso.GetFileName(Parameter(i))

	Ordner=left(Datei,5)

	If not fso.FolderExists(Pfad + "\" + Ordner) Then
		fso.CreateFolder Pfad + "\" + Ordner
	End If
	fso.MoveFile Parameter(i),Pfad + "\" + Ordner + "\" + Datei
Next

 

[Niranjana]

wow, vielen dank. leider hatte ich eine fehlermeldung erhalten: "argumenten liste zu lang". Ich weiß nur nicht ob ich alles richtigg gemacht habe. Ich habe das skript in den editor kopiert und das ganze als .vbs abgespeichert und die dateien dann auf die vbs datei gezogen.

kann man dich auch über ein instant massanger erreichen sowas wie skype? wenn ja. pm me plz.

wow, es geht doch.

jedoch nur an die 7 ordner gleichzeitig. kann man da auch noch was ändern?

 

[little_skunk]

Ich tippe auf einen zu langen Dateipfad. Eine Begrenzung der Parameter im VBScript ist mir nicht bekannt.

Ich hab zwar ICQ aber nicht hier auf Arbeit. Bringt also nicht soviel.

 

[Niranjana]

Danke für die schenelle antwort. wie kann ich das problem des dateipfades lößen? soll ich die dateien und das skript ins c: verzeichnis kopieren oder sollte der dateinamen nicht alzugroß sein?
einzelne dateien lassen sich mit dem skript tadellos verarbeiten nur nicht viele auf einmal.

 

[little_skunk]

Das Drag&Drop-Limit - Tipp - PC-WELT

Lösung: Die Datein nicht mit Drag and Drop sondern mit dem Windows Kontextmenü "Senden an" übergeben. Dazu einfach das VBScript nach %USERPROFILE%\SendTo kopieren.

Kannst auch die Datein nach C: kopieren. Dann kannst du ein paar mehr Datein aber immernoch nicht alle gleichzeitig verarbeiten.

 

[Niranjana]

vielen dank, da werde ich mich gleich mal versuchen

 

[wario]

oftmals wird auch ganz vergessen, dass der Windows Explorer ebenfalls mehrere Dateien auf einen Schwung umbenennen kann. Die Dateien haben dann den selben Namen, wie xxx (01).mp3, xxx (02).mp3, xxx (03).mp3.
Wenn Du also im Ordner Movies alle Dateien darin markierst, und dann [F2] drückst, zum umbenennen, gibst du den Names des Orders, also Movies an, und erhältst dann lauter Dateien die Movies (xxx).xxx (fortlaufend numieriert) heißen.

Umbenennen mehrerer Dateien mit dem Windows-Explorer in Windows XP

 

[Niranjana]

Das Drag&Drop-Limit - Tipp - PC-WELT

Lösung: Die Datein nicht mit Drag and Drop sondern mit dem Windows Kontextmenü "Senden an" übergeben. Dazu einfach das VBScript nach %USERPROFILE%\SendTo kopieren.

Kannst auch die Datein nach C: kopieren. Dann kannst du ein paar mehr Datein aber immernoch nicht alle gleichzeitig verarbeiten.

Nach über 2 wochen bin ich endlich mal dazugekommen, bzw. habe meine bilder nun soweit, dass ich Sie durch das von Dir geschriebene Skript jagen kann.

Ich dachte ich hätte schon mal einen positiven durchlauf über dern sentto-ordner gehabt. hast Du schon mal das mit dem sentto getestet? Heute schlug der versuch leider fehl(Fehlermeldung: Argumentenliste zu lang)

---------- Beitrag hinzugefügt um 17:50 ---------- Vorheriger Beitrag war um 17:48 ----------

oftmals wird auch ganz vergessen, dass der Windows Explorer ebenfalls mehrere Dateien auf einen Schwung umbenennen kann. Die Dateien haben dann den selben Namen, wie xxx (01).mp3, xxx (02).mp3, xxx (03).mp3.
Wenn Du also im Ordner Movies alle Dateien darin markierst, und dann [F2] drückst, zum umbenennen, gibst du den Names des Orders, also Movies an, und erhältst dann lauter Dateien die Movies (xxx).xxx (fortlaufend numieriert) heißen.

Umbenennen mehrerer Dateien mit dem Windows-Explorer in Windows XP

Danke in meinem fall ist das leider nicht ausreichend, doch in zukunft könnte ich das ja mal gebrauchen. in der regel benutze ich die umbenennen funktion von photoshop und total command.

 

[little_skunk]

Schade eigentlich. Also gilt die Limitierung dort anscheinend auch.

Eine Idee hätte ich noch. Liegen alle Bilder in einem Ordner und sonst ist in dem Ordner nichts? Dann würde ich fix das Script umschreiben, dass es nicht alle Bilder als Übergabeparameter haben möchte sondern den Ordner selber durchsucht.