Wer kennt das nicht: Da liegen nun die MP3 Dateien in schönster
Ordnung auf der Festplatte, die Dateinamen sind alle gemäß den
persönlichen Vorgaben und nach dem Überspielen auf den MP3 Player
stellt sich heraus, dass die Dateinamen hierfür sehr unpraktisch sind.
Player, die bei der Navigation die Ordnerstruktur verwenden, bieten
oft nicht genug Platz im Display, um auf den ersten Blick den
Song zu erkennen.
Hier wäre es zum Beispiel hilfreich, die Tracknummer, den Titel
und dann erst den Interpreten im Dateinamen zu sehen. Vielleicht
gibt es auch noch andere Vorstellungen, je nachdem wie die Ordnerstruktur
aufgebaut ist.
Sicher gibt es dafür eine Menge Programme, die diese Aufgabe mehr
oder weniger komfortabel erledigen. Aber welches ist für diesen
Zweck das beste? Eines steht jedoch fest: die Dateien manuell
umzubenennen, ist die denkbar schlechteste Alternative.
Auf diesen Seiten stelle ich nun ein VBA-Programm vor, welches
genau diese Arbeit "halbautomatisch" erledigt. Halbautomatisch
deshalb, weil vor dem Speichern das Ergebnis als Vorschlag angezeigt
wird, noch geändert werden kann und erst dann auf Knopfdruck
gespeichert wird.
An dieser Stelle möchte ich meinen Dank all jenen aussprechen,
die unzählige Beiträge zu diesem Thema auf ihren Webseiten
vorgestellt haben. Immer da, wo ich nicht mehr weiter wusste,
habe ich Codeschnipsel übernommen und angepasst und hoffe, dass
für andere meine Seite nun genauso hilfreich ist.
Zu diesem Programm gibt es eine Readme-Datei, die ich allen
empfehle, die die
Excel-Datei
(als ZIP gepackt - 46 KB) herunterladen und als ganzes
ausprobieren möchten.
Modul1
Modul2
Modul3
CommandButtons
Menü
OK, die Readme ist noch nicht fertig. Ich arbeite gerade daran.
Ausserdem gibt es noch ein paar nötige Nachbesserungen:
- Wenn es mehr, als einen Punkt im Dateinamen gibt
- Trennzeichen ohne Leerzeichen davor und/oder dahinter
Das sind aber nur Kleinigkeiten.
- Ein kleiner Bug in der Menükontrolle wurde beseitigt
Screenshot1
Screenshot2
Screenshot3
Private Sub CommandButton1_Click() Call Nutzerdefiniert End Sub
Private Sub CommandButton2_Click() 'Änderungen speichern Call Dateien_umbenennen End Sub
Private Sub CommandButton3_Click() Call Nutzerdefiniert_2 End Sub
