Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Dateiname mit Text ergänzen

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

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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 String

strFile = "F:\Temp\bild.jpg"
strNew = "Grillen" ' oder = TextBox1.Text

strExt = Mid(strFile, InStrRev(strFile, "."))
strBase = Left(strFile, Len(strFile) - Len(strExt))

Name strFile As strBase & " " & strNew & strExt

End 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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige