Microsoft Excel

Herbers Excel/VBA-Archiv

Dateiname externer Datei ändern

Betrifft: Dateiname externer Datei ändern von: Björn
Geschrieben am: 13.07.2008 21:41:32

Hallo Leute,

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

  

Betrifft: AW: Dateiname externer Datei ändern von: Ramses
Geschrieben am: 13.07.2008 21:49:58

Hallo

Du kannst den Namen einer Datei nicht ändern wenn sie geöffnet ist, sondern nur unter einem anderen Namen speichern.
Umbenennen geht so

Name "2008_0706-TagDer0001.JPG" As "Bild001.jpg"

Sub Datei_umbenennen()
Dim Pfad, Datei, Test
Pfad = Application.ThisWorkbook.Path

Name Pfad & "\2008_0706-TagDer0001.JPG" As Pfad & "\Bild001.jpg"

Set objFile = CreateObject("DSOFile.OleDocumentProperties")
objFile.Open ( Pfad & "\Bild001.jpg")
objFile.SummaryProperties.Title = "Bildtext blabla"
objFile.Save
End Sub



Gruss Rainer


  

Betrifft: AW: Dateiname externer Datei ändern von: Daniel
Geschrieben am: 13.07.2008 21:51:13

HI
solange eine Datei geöffnet ist, kann der Dateiname nicht geändert werden, das ist generell in Windows so.
möglich wäre die Datei mit .SAVEAS "NeuerDateiname.jpg" unter dem neuen Dateinamen zu speichern.
die alte Datei müsste dann noch mit KILL gelöscht werden.

Gruß, Daniel


  

Betrifft: AW: Dateiname externer Datei ändern von: Uduuh
Geschrieben am: 13.07.2008 21:54:13

Hallo,
evtl ganz einfach mit

Name AlterPfadname As NeuerPfadname


???

Gruß aus’m Pott
Udo



  

Betrifft: AW: Dateiname externer Datei ändern von: Björn
Geschrieben am: 15.07.2008 20:19:02

Ich danke euch. Es klappt nun wunderbar.

Übrigens hatte ich SaveAs ausprobiert - das funktioniert nicht.


 

Beiträge aus den Excel-Beispielen zum Thema "Dateiname externer Datei ändern "