Dateinamen ändern

15/08/2010 - 17:18 von Erik Gronwald | Report spam
Hallo erstmal!

Ich hab hier ne Menge Dateien, deren Namen ich àndern möchte.
Jetziges Format: Vorname Nachname - Titel
gewünschtes Format: Nachname, Vorname - Titel

Hat jemand eine Idee wie man das anstellen könnte? Ich hab mir jede
Menge Filerenamer angeschaut, aber keiner kann das. Bekommt man das
mit VBA hin?

viele Grüße
Erik

Viele Grüße
Erik
Der Horizont vieler Menschen ist ein Kreis mit Radius Null - und das
nennen sie ihren Standpunkt
(Albert Einstein)
 

Lesen sie die antworten

#1 Alexander Kerensky
16/08/2010 - 12:44 | Warnen spam
Hallo Erik,

das sollte zu machen sein. :-)
Ich würde erstmal den Dateinamen mittels Split nach " - " aufsplitten.
Dadurch bekommst du die 2 Strings "Vorname Nachname" und "Titel".
"Vorname Nachname" kannst du dann nochmal nach " " aufsplitten. Dann
hast du 3 Strings: "Vorname", "Nachname" und "Titel" die du dann nur
noch zusammensetzen brauchst.
Hier ein schnell zusammengehacktes Beispiel:

Sub test()

Dim Dateiname As String

Dateiname = "Vorname Nachname - Titel"

Dateiname = Dateiname_umwandeln(Dateiname)

MsgBox Dateiname

End Sub

Function Dateiname_umwandeln(Dateiname As String) As String

Dim aZ() As String
Dim Titel As String

aZ = Split(Dateiname, " - ")

Titel = aZ(1)
aZ = Split(aZ(0), " ")
Dateiname_umwandeln = aZ(1) & ", " & aZ(0) & " - " & Titel

End Function



Gruß Alex

On 15 Aug., 17:18, Erik Gronwald wrote:
Hallo erstmal!

Ich hab hier ne Menge Dateien, deren Namen ich àndern möchte.
Jetziges Format:  Vorname Nachname - Titel
gewünschtes Format: Nachname, Vorname - Titel

Hat jemand eine Idee wie man das anstellen könnte? Ich hab mir jede
Menge Filerenamer angeschaut, aber keiner kann das. Bekommt man das
mit VBA hin?

viele Grüße
Erik

Viele Grüße
Erik
Der Horizont vieler Menschen ist ein Kreis mit Radius Null - und das
nennen sie ihren Standpunkt
(Albert Einstein)

Ähnliche fragen