Arkadaşlar;
Bir klasör içerisinde bulunan dosyalar ile ilgili özellikleri excelde listelemem gerekiyor.
Aşağıda sunduğum örnekte klasör seçerek dosya bilgilerini excele getirebiliyorum.Fakat Dosyanın özellikler kısmında yazılmış Açıklamalar,son değiştiren vb. yazıları excele alamıyorum.
Benzer bir çalışma buldum kodları aşağıda bildiriyorum fakat asıl yapmak istediğim seçtiğim klasör içinde bulunan dosyaların excelde listelenmesi...
Özellikle açıklamalar kısmı...
Aşağıdaki kodları Ek'te ki içinde kod bulunan Excele nasıl adapte edebilirim.
YArdımlarınız için teşekkür ederim...
Sub DosyaOzellikleri()
Dim excelvba As DSOFile.OleDocumentProperties
Dim evn As DSOFile.SummaryProperties
Dim dosyam As String
Set excelvba = New DSOFile.OleDocumentProperties
dosyam = "c:\aaa.xls"
excelvba.Open dosyam
Set evn = excelvba.SummaryProperties
Başlık = evn.Title
Konu = evn.Subject
Yazar = evn.Author
Kategori = evn.Category
Anahtar_Sözcükler = evn.Keywords
Açıklamalar = evn.Comments
Oluşturma_Tarihi = evn.DateCreated
Son_Yazdırma_Tarihi = evn.DateLastPrinted
Son_Kaydetme_Tarihi = evn.DateLastSaved
Son_Kaydeden = evn.LastSavedBy
Dosya_Adı = excelvba.Name
Dosya_Yolu = excelvba.Path
MsgBox "Başlık : " & Başlık & vbLf & "Konu : " & Konu & vbLf & "Kategori : " & Kategori & _
vbLf & "Anahtar_Sözcükler : " & Anahtar_Sözcükler & vbLf & "Açıklamalar : " & Açıklamalar & _
vbLf & "Oluşturma_Tarihi : " & Oluşturma_Tarihi & vbLf & "Son_Yazdırma_Tarihi : " & _
Son_Yazdırma_Tarihi & vbLf & "Son_Kaydetme_Tarihi : " & _
Son_Kaydetme_Tarihi & vbLf & "Son_Kaydeden : " & Son_Kaydeden & _
vbLf & vbLf & vbLf & "Dosya_Yolu : " & Dosya_Yolu & vbLf & "Dosya_Adı : " & Dosya_Adı & vbLf & vbLf
End Sub
Bir klasör içerisinde bulunan dosyalar ile ilgili özellikleri excelde listelemem gerekiyor.
Aşağıda sunduğum örnekte klasör seçerek dosya bilgilerini excele getirebiliyorum.Fakat Dosyanın özellikler kısmında yazılmış Açıklamalar,son değiştiren vb. yazıları excele alamıyorum.
Benzer bir çalışma buldum kodları aşağıda bildiriyorum fakat asıl yapmak istediğim seçtiğim klasör içinde bulunan dosyaların excelde listelenmesi...
Özellikle açıklamalar kısmı...
Aşağıdaki kodları Ek'te ki içinde kod bulunan Excele nasıl adapte edebilirim.
YArdımlarınız için teşekkür ederim...
Sub DosyaOzellikleri()
Dim excelvba As DSOFile.OleDocumentProperties
Dim evn As DSOFile.SummaryProperties
Dim dosyam As String
Set excelvba = New DSOFile.OleDocumentProperties
dosyam = "c:\aaa.xls"
excelvba.Open dosyam
Set evn = excelvba.SummaryProperties
Başlık = evn.Title
Konu = evn.Subject
Yazar = evn.Author
Kategori = evn.Category
Anahtar_Sözcükler = evn.Keywords
Açıklamalar = evn.Comments
Oluşturma_Tarihi = evn.DateCreated
Son_Yazdırma_Tarihi = evn.DateLastPrinted
Son_Kaydetme_Tarihi = evn.DateLastSaved
Son_Kaydeden = evn.LastSavedBy
Dosya_Adı = excelvba.Name
Dosya_Yolu = excelvba.Path
MsgBox "Başlık : " & Başlık & vbLf & "Konu : " & Konu & vbLf & "Kategori : " & Kategori & _
vbLf & "Anahtar_Sözcükler : " & Anahtar_Sözcükler & vbLf & "Açıklamalar : " & Açıklamalar & _
vbLf & "Oluşturma_Tarihi : " & Oluşturma_Tarihi & vbLf & "Son_Yazdırma_Tarihi : " & _
Son_Yazdırma_Tarihi & vbLf & "Son_Kaydetme_Tarihi : " & _
Son_Kaydetme_Tarihi & vbLf & "Son_Kaydeden : " & Son_Kaydeden & _
vbLf & vbLf & vbLf & "Dosya_Yolu : " & Dosya_Yolu & vbLf & "Dosya_Adı : " & Dosya_Adı & vbLf & vbLf
End Sub