Dosya Özellik Bilgilerini İstenilen Dosyaya Yazdırmak ?

[baydeniro]

Merhaba arkadaşlar. Aşağıda üstadımız Levent Menteşoğlu'nun yazmış olduğu harika bir kod var. bu kod ile dosya özellik bilgilerini Browserdan seçilen yere kaytdetmek mümkün. Peki bilgilerin kayıt edilmesi istenen dosya kodun içine yazılmak istenirse; kod nasıl revize edilmelidir ?


Sub dosyaozellikleri()
On Error Resume Next
Set klasor = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasör seçin !", &H100)
klasoryolu = klasor.Items.Item.Path
If klasoryolu = "" Then Exit Sub
For Each dosyaadi In CreateObject("Scripting.FileSystemObject").GetFolder(klasoryolu).Files
c = c + 1
Set dosya = CreateObject("Shell.Application").Namespace(klasor).ParseName(dosyaadi.Name)
Cells(1, c + 1) = dosyaadi.Name
For a = 1 To 40
If c = 1 Then Cells(a + 1, "a") = CreateObject("Shell.Application").Namespace(klasor).GetDetailsOf("", a)
Cells(a + 1, c + 1) = CreateObject("Shell.Application").Namespace(klasor).GetDetailsOf(dosya, a)
Next
Next
End Sub

 

[baydeniro]

Bu konuda fikri olan var mı arkadaşlar !!

 

[baydeniro]

Arkadaşlar, yukarıdaki kodun oluşturduğu bilgilerin "C:\KAYIT.xls" dosyasına kayıt edilmesini sağlayacak şekilde nasıl değiştirebiliriz ?

 

[halit3]

kod aşağıdaki mesajda

 

[baydeniro]

Sayın halit3 ilginize çok teşekkür ederim. Ama bu link çözümünü aradığım konu değil gibi sanki !!

 

[baydeniro]

1. mesajda yazılı olan kod, bilgilerin yazılacağı adresin browserdan seçilmesini sağlıyor. Aynı bilgileri C:\KAYIT.xls dosyasına veya o an açık olan dosyaya nasıl yazdırabiliriz.

 

[halit3]

Sayın halit3 ilginize çok teşekkür ederim. Ama bu link çözümünü aradığım konu değil gibi sanki !!

kod aşağıdaki mesajda

 

[baydeniro]

Sayın halit3 haklısınız galiba. Ama siz bana kızacaksınız, ben yine anlamadım ()

 

[halit3]

Sayın halit3 haklısınız galiba. Ama siz bana kızacaksınız, ben yine anlamadım ()

hayır kızmıyacağım neyi anlamadınız.

 

[baydeniro]

1. mesajdaki kodda oluşan bilgiler tam bana gerekli olan bilgiler. Ancak bu bilgilerin Browser'dan seçilmesi gerekn dosyaya değil, açık olan / içinde bulunulan dosyaya yazılmasını ve bunun kodun içinde monte edilerek, kod RUN edildiğinde kendiliğinden (browserdan) seçim yapılmadan gerçekleşmesi daha uygun bir çözüm. İlgili linkte bunun gerçeklesmesi yönünde bir çözüm varsa bile ben anlayamadım.

 

[halit3]

Birde bunu denermisiniz.

Sub dosyaozellikleri()
On Error Resume Next
Klasor = "C:\"
dosyaadı = "KAYIT.xls"
C = 1
Set Dosya = CreateObject("Shell.Application").Namespace(Klasor).ParseName(dosyaadı)
Cells(1, C + 1) = dosyaadı
For a = 1 To 40
If C = 1 Then Cells(a + 1, "a") = CreateObject("Shell.Application").Namespace(Klasor).GetDetailsOf("", a)
Cells(a + 1, C + 1) = CreateObject("Shell.Application").Namespace(Klasor).GetDetailsOf(Dosya, a)
Next
End Sub

 

[baydeniro]

İşte budur !! çok çok teekkürler sayın halit3.

 

[halit3]

işte budur !! çok çok teekkürler sayın halit3.

iyi çalışmalar