Dateiname mit Text ergänzen 27.12.2007 08:48:00 Harald Hallo im Excelforum, ich möchte einen Dateinamen zb bild.jpg umbenenen mit dem Text aus einer Textbox und denn Text vor den Punkt einfügen vba Lösung vorherr: "bild.jpg" Text aus Textbox " Grillen" nachher : "bild Grillen.jpg" mfg Harald K
AW: Dateiname mit Text ergänzen 27.12.2007 09:06:00 Josef Hallo Harald, als Ansatz. Sub umbenennen()Dim strFile As String, strNew As String, strBase As String, strExt As StringstrFile = "F:\Temp\bild.jpg"strNew = "Grillen" ' oder = TextBox1.TextstrExt = Mid(strFile, InStrRev(strFile, "."))strBase = Left(strFile, Len(strFile) - Len(strExt))Name strFile As strBase & " " & strNew & strExtEnd Sub Gruß Sepp Anzeige
AW: Dateiname mit Text ergänzen 27.12.2007 09:25:00 Harald Hallo Sepp, Vielen Dank für die schnelle Lösung Super Lösung. mfg Harald K