Renamer

[daywalkertp]

Hallo Leitz,
ich hab mir mal einen kleinen Renamer gebastelt.

Ich hab das so gemacht das er die Endungen nach dem "." löscht
und durch neue ersetzt. Das einzige Problem ist:
Wenn ich eine Datei hab die zwei "." hat z.B.:

test.datei.dat

dann löscht der mir alles hinter dem ersten "." und das will ich nicht! Hier mein Code:

sNewName = lv.ListItems(r).Text
lPos = InStr(sNewName, ".")
sNewName3 = Left(sNewName, lPos - 1)

was muss ich ändern? (ansonsten funktioniert das Proggi )

 

[Dario Linsky]

Teil den Dateinamen doch einfach mit Split in mehrere Teile auf, und lösch dann den letzten:

Dim Dateiname As String
Dim Teile() As String
Dim NeuerDateiname As String
Dim i As Integer

Dateiname = "C:\das.ist.ein.dateiname.mit.vielen.punkten.txt"
Teile = Split(Dateiname, ".")
For i = LBound(Teile) To UBound(Teile) - 1
    NeuerDateiname = NeuerDateiname + Teile(i) + "."
Next i
MsgBox NeuerDateiname

 

[daywalkertp]

jau danke, aber es geht auch viel einfacher:

lPos = InStrRev(sNewName, ".")
sNewName3 = Left(sNewName, lPos - 1)