Dateiname externer Datei ändern
13.07.2008 21:41:00
Björn
ich habe folgendes Problem und komme einfach nicht mehr weiter. Ich habe diverse Bilder (*.jpg) und die sind alle unterschiedlich benannt. Ich habe die Eigenschaften dieser Bilder bereits über einen VBA-Code in eine Excel-Tabelle eingelesen. Jetzt möchte ich verschiedene Eigenschaften (hier: Titel - funzt; Name - funzt nicht) ändern - insbesondere den Dateinamen. Es klappt alles, bis auf den geänderten Dateinamen.
Oder ist das gar nicht möglich?
Hier der Code:
Sub Datei_umbenennen()
Dim Pfad, Datei, Test
Pfad = Application.ThisWorkbook.Path
Datei = "2008_0706-TagDer0001.JPG"
Set objFile = CreateObject("DSOFile.OleDocumentProperties")
objFile.Open (Pfad & "\" & Datei)
objFile.SummaryProperties.Name = "Bild001.jpg"
objFile.SummaryProperties.Title = "Bildtext blabla"
objFile.Save
End Sub
Hoffe mir kann jemand helfen.
Viele Grüße
Björn