Das Archiv des Excel-Forums

Dateiname externer Datei ändern

Bild

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

Bild

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

Bild

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

Bild

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


Bild

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.

 Bild

Excel-Beispiele zum Thema "Dateiname externer Datei ändern "

Dateinamen filtern download Dateiname aus dem vollen Namen extrahieren download
Dateiname vorgeben bei Druck in Printdatei download Dateinamen in Listbox download
Dateinamen in Tabelle einlesen download Dateinamen eines Verzeichnisses als HTML-Datei download
Grafik nach Eingabe des Dateinamens einfügen download Dateinamen in TabStrip-Elemente einlesen download
Datei entsprechend der Eingabe des Dateinamens öffnen download Dateinamen in UserForm-ComboBox einlesen und Datei öffnen download
Beim Öffnen Dialog mit Dateiname und Dateidatum download Grafik-Dateinamen aus Zelle auslesen und HTML-Datei erstellen download
Dateiname, Tabelle und Berreich zu einer Verknüpfung verbinden download Dateiauswahl-Dialog mit vorgegebenen Dateinamen aufrufen download
Dateinamen einlesen, Texte editieren download Speichern-Dialog mit Dateinamen-Vorschlag aufrufen download
Wert in externer Mappe suchen und mit Format übernehmen. download Symbolleiste zum Aufruf externer Anwendungen erstellen download