Soru Makro ile Dosya İçerisindeki Tüm İçerikleri Excel Sayfasına Getirmek

[Lenadro]

Herkese Merhabalar,

Ortak alanda yer alan bir dosya içerisinde yaklaşık 2 binden fazla video görüntüsü var ve bu videoları atan kişi farklı kişiler bende bunların kim attığını ve video boyutlarını getirmeye çalıştığımda hata alıyorum. Bu konuda bilgisi olan kişiler yardımcı olursa sevinirim.

Şimdiden ilgi gösteren herkese teşekkürler..!!

Yaptığım Kod Şu Şekildedir.

Sub Dosya_İsimleri()
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("G:\Dosya\Videolar")
Set dc = f.Files
For Each Dosya In dc
c = c + 1
Cells(c, 1) = Dosya.Name
Cells(c, 2) = Dosya.Size
Cells(c, 3) = Dosya.Owner (Burada hata alıyorum)
Cells(c, 4) = Dosya.Length (Burada hata alıyorum)
Next
End Sub

Hata Aldığım Kodlar: Cells(c, 3) = Dosya.Owner ve Cells(c, 4) = Dosya.Length

 

[hamitcan]

….

 

[Lenadro]

….

Hamitcan Bey,

İlginiz için teşekkür ederim ama sizin yapmış olduğunuz formül. Benim bahsettiğim konu makro işlemi ile yapılan bir durum. Tekrardan teşekkür ederim ilginize.

 

[hamitcan]

Cevabı yanlış yere yazmışım. Sizin sorunuzun cevabı değildi...