Fotoğrafın Bilgilerini Alma

Katılım
25 Ağustos 2010
Mesajlar
73
Excel Vers. ve Dili
MS Office 2007
Merhaba arkadaşlar,

Bilgisayarımda farklı isimlerle aynı fotoğraflar var. İnternette bunla ilgili "Duplicate Finder" isimli program da var. Yani çoklayan resmi buluyor ve uçuruyor.
Ben bunu makro ile yapmaya çalıştım. Bir noktaya kadar da başardım diyebilirim. Bir klasör içindeki dosyaların bilgilerini excele alabiliyorum. Bu bilgiler adı, boyutu, yaratılma tarihi vs.

Fakat burada alamadığım tek temel bilgi fotoğrafın çekildiği tarih. Aslında bunu alabilsem kusursuz diyebileceğim hale gelecek. Araştırdım ama maalesef bulunmuyor. İngilizce kaynaklarda bir şeyler var ama onları uygulamak da mümkün olmadı benim açımdan. Fotoğrafın çekildiği tarih "date taken" olarak anılıyor ya da exif bilgisi.

Yardımcı olabilecek birileri varsa çok sevinirim.

Teşekkür ederim.
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,270
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
"Date Taken" bilgisi fotoğraf dosyasına gömülü olarak işlenmişse alabilirsiniz, yoksa alamazsınız....

.Untitled.png


Untitled.png
 
Son düzenleme:
Katılım
25 Ağustos 2010
Mesajlar
73
Excel Vers. ve Dili
MS Office 2007
Peki hocam o bilgiyi nasıl alabilirim? @Haluk

Aşağıdaki bilgilerin hepsini alıyorum ama sadece 'Date Taken' kaldı.

Cells(r, 1) = FileItem.Path
Cells(r, 2) = FileItem.Size
Cells(r, 3) = FileItem.Type
Cells(r, 4) = FileItem.DateCreated
Cells(r, 5) = FileItem.DateLastAccessed
Cells(r, 6) = FileItem.DateLastModified
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,270
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Dediğim gibi, "Exif" bilgileri gömülmüşse alabilirsiniz. Yoksa, alamazsınız.

Fotoğraf dosyasını sağ tıklayın, yukarıda eklediğim özelliklere bakın.... Eğer aradığınız bilgi orada varsa, VBA ile alınır.

.
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,270
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Gerekli bilgiler varsa, aşağıdaki linkte yer alan kodu kendinize göre ayarlarsınız....


.
 
Katılım
25 Ağustos 2010
Mesajlar
73
Excel Vers. ve Dili
MS Office 2007
Gerekli bilgiler varsa, aşağıdaki linkte yer alan kodu kendinize göre ayarlarsınız....


.
Çok teşekkür ediyorum. İstediğim bilgiye bu sayede ulaştım.
 
Üst