4
Batch - Dateinamen auslesen, umbenennen + dreistellige Zahl vor bisherigen Dateinamen setzen.
Hallo und guten Morgen,
ich möchte für drei Ordner (2011, 2013, 2014) eine Batch schreiben, die die darin enthaltenen mp3 und m4a's umbenennt. Bisher heißen diese ([Autor] - [Titel]) ; für ein neues System im Haus, das leider nicht mit Titelnummern arbeitet/arbeiten kann, möchte ich die Titelnummern vor den Autor schreiben: ([titelnummer] [Autor] - [Titel]). Absoluter Luxus wäre natürlich, dass er das ganze nur bei neu hinzugefügten Titeln macht, d.h. erkennt, ob die ersten drei Zeichen des Dateinamens drei Ziffern sind und diese Datei dann überspringt (Wäre mit VBS wahrscheinlich einfacher umzusetzen?).
Ich habe leider keine Ahnung, wie ich jeden einzelnen Dateinamen auslesen soll. Evtl wäre es ja schön, die Titelnummer vornean zu schreiben, allerdings kenne ich die Methode hierfür nicht (VBS: fso.getfile.TITELNUMMER)...
Danke für jeden Tipp!
LGDS4 V40
EDIT: Ja, ich habe schon sämtliches durchsucht, hat mir aber nicht weitergeholfen...
ich möchte für drei Ordner (2011, 2013, 2014) eine Batch schreiben, die die darin enthaltenen mp3 und m4a's umbenennt. Bisher heißen diese ([Autor] - [Titel]) ; für ein neues System im Haus, das leider nicht mit Titelnummern arbeitet/arbeiten kann, möchte ich die Titelnummern vor den Autor schreiben: ([titelnummer] [Autor] - [Titel]). Absoluter Luxus wäre natürlich, dass er das ganze nur bei neu hinzugefügten Titeln macht, d.h. erkennt, ob die ersten drei Zeichen des Dateinamens drei Ziffern sind und diese Datei dann überspringt (Wäre mit VBS wahrscheinlich einfacher umzusetzen?).
Ich habe leider keine Ahnung, wie ich jeden einzelnen Dateinamen auslesen soll. Evtl wäre es ja schön, die Titelnummer vornean zu schreiben, allerdings kenne ich die Methode hierfür nicht (VBS: fso.getfile.TITELNUMMER)...
Danke für jeden Tipp!
LG
EDIT: Ja, ich habe schon sämtliches durchsucht, hat mir aber nicht weitergeholfen...
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Kommentar vom Moderator Biber am Nov 19, 2014 um 17:59:53 Uhr
Content-Key: 253238
Url: https://administrator.de/contentid/253238
Printed on: April 18, 2024 at 02:04 o'clock
4 Comments
Latest comment
Guten Morgen!
Wenn du dein Problem nicht lösen kannst dann zerlege es in Teil-Probleme!
In deinem Fall:
Wenn du nun nach den Teilproblemen suchst, wirst du eine Antwort finden.
Versuch die 3 Teilproble zu lösen und setze die Lösungen zu einer zusammen, und schon funktioniert es
Liebe Grüße
ITvortex
Wenn du dein Problem nicht lösen kannst dann zerlege es in Teil-Probleme!
In deinem Fall:
- Wie kann ich den Dateinamen auslesen?
- Wie kann ich eine Datei umbennen?
- Wie kann ich eine dreistellige Zahl vor den Dateinamen setzen?
Wenn du nun nach den Teilproblemen suchst, wirst du eine Antwort finden.
Versuch die 3 Teilproble zu lösen und setze die Lösungen zu einer zusammen, und schon funktioniert es
Liebe Grüße
ITvortex
In meinem Fall:
wie nehme ich mir jede einzelne Datei vor?!
Umbenennen: rename [folgende Datei] xxx+[alter Dateiname]
Da ist mein Problem
Des weiteren ist wichtig, dass die Titelnummer = der Nummer am Anfang des Dateinamens ist. Aber wie kann ich die Titelnummer auslesen?! (Wenn ich die Dateien auflisten lasse, sind sie alphabetisch sortiert -> wenn ich eine durchlaufende Nummer vergebe, stimmt die Titelnummer nicht mehr.)
wie nehme ich mir jede einzelne Datei vor?!
Umbenennen: rename [folgende Datei] xxx+[alter Dateiname]
Da ist mein Problem
Des weiteren ist wichtig, dass die Titelnummer = der Nummer am Anfang des Dateinamens ist. Aber wie kann ich die Titelnummer auslesen?! (Wenn ich die Dateien auflisten lasse, sind sie alphabetisch sortiert -> wenn ich eine durchlaufende Nummer vergebe, stimmt die Titelnummer nicht mehr.)
Dateinamen:
Zum Beispiel bekommst du so die Dateinamen.... Dann musst du sie halt weiterleiten.. oder was auch immer, darum sag ich ja versuch die Teilprobleme zu lösen oder google explizit danach
@for /f "delims=" %s in ('dir /b "C:\DeinOrdner\*.mp3"') do @echo %~nsZum Beispiel bekommst du so die Dateinamen.... Dann musst du sie halt weiterleiten.. oder was auch immer, darum sag ich ja versuch die Teilprobleme zu lösen oder google explizit danach
Ich habe das ganze jetzt als VBS geschrieben. Doch in der Loop Schleife am Ende sagt er immer ,,Datei existiert bereits" oder ,,Datei wurde nicht gefunden". Wo liegt mein Fehler?
Danke für deine Hilfe
EDIT: Das Folder.GetDetailsOf(..., 26) gibt die Titelnummer zurück
EDIT EDIT: Das select case ist natürlich falsch... Entschuldigung Habe jetzt jeden einzelnen Fall durch eine if Abfrage ersetzt, aber wieso hängt er sich nach 50 Titeln auf?
Letzes EDIT: Auch das mehrmalige Öffnen der bat ist überflüssig, sind einige Versuche Aufgrund von Fehlermeldungen gewesen...
Danke für deine Hilfe
'---------------------------------------------------------------------------------------------------------
' Rename.vbs - Script zum hinzufügen der Titelnummer zum Dateinamen
'---------------------------------------------------------------------------------------------------------
Option Explicit
Dim WshShell : Set WshShell = CreateObject("WScript.Shell")
Dim FSO : Set FSO = CreateObject("Scripting.FileSystemObject")
Dim WshApplication : Set WshApplication = CreateObject("Shell.Application")
Dim tmpBatchRunner, tmpActualFile, Drive, Folder, FolderItem, strHeader, strValue, Year, File, FileNameFile, FileOldName, strNewValue
Year = InputBox("Welches Jahr moechten Sie ueberarbeiten?" & vbCR & "Gültige Eingaben: 2011, 2013, 2014")
if Not Year = "2011" And Not Year = "2013" And Not Year = "2014" Then WScript.Quit
Set tmpBatchRunner = FSO.CreateTextFile("Batchrunner.bat", True)
tmpBatchRunner.writeline("if exist FileNames.txt del FileNames.txt") 'Batch löscht "FileNames.txt"
tmpBatchRunner.writeline("dir /b>FileNames.txt") 'Batch schreibt "FileNames.txt" mit den Namen der Dateien.
tmpBatchRunner.Close
set tmpBatchRunner = nothing
WshShell.Run "Batchrunner.bat"
' Dateinamen Zeile für Zeile aus "FileNames.txt" auslesen
Drive = left(WScript.ScriptFullName, 1)
Set Folder = WshApplication.NameSpace(Drive & ":\Geordnete Musik\" & Year)
'strHeader = Folder.GetDetailsOf(Folder.Items, 26) '26 - Titelnummer
WScript.Sleep 3000 ' 3 sek
Set FileNameFile = FSO.OpenTextFile("FileNames.txt",,True)
Do Until FileNameFile.AtEndOfStream 'Anzahl der Dateien im Ordner %Year%
tmpActualFile = FileNameFile.Readline
if tmpActualFile = "Rename.vbs" or tmpActualFile = "FileNames.txt" or tmpActualFile = "BatchRunner.bat" or tmpActualFile = "" Then
Else
Set File = FSO.GetFile(tmpActualFile)
Set FolderItem = Folder.ParseName(tmpActualFile)
strValue = Folder.GetDetailsOf(FolderItem, 26)
select case strValue
case len(strValue) = 0
Set strNewValue = nothing
case len(strValue) = 1
strNewValue = "00" & strValue & " "
case len(strValue) = 2
strNewValue = "0" & strValue & " "
case len(strValue) = 3
strNewValue = strValue & " "
case len(strValue) > 3
strNewValue = left(strValue, 3) & " "
End Select
FileOldName = File.Name
'MsgBox strValue & vbCr & FileOldName
File.Name = strNewValue & FileOldName
End if
LoopEDIT: Das Folder.GetDetailsOf(..., 26) gibt die Titelnummer zurück
EDIT EDIT: Das select case ist natürlich falsch... Entschuldigung
Habe jetzt jeden einzelnen Fall durch eine if Abfrage ersetzt, aber wieso hängt er sich nach 50 Titeln auf?Letzes EDIT: Auch das mehrmalige Öffnen der bat ist überflüssig, sind einige Versuche Aufgrund von Fehlermeldungen gewesen...
