Dosya Boyutunu Öğrenme

[selcuk_c]

Merhaba,

C sürücüsünde data isimli klasorümün (C:\data\tgk2009111101.zip) içinde bir adet .zip dosyam var. Bu dosyanın boyutunu, excelde a1 hücresine dosyanın ismini b1 hücresine dosyanın boyutunu (örn. 300 kb) yazdırmak istiyorum. teşekkürler,

 

[Orion1]

Dosya adını ve yolunu kendi durumunuza göre düzemnleyiniz.

Sub boyut()
Dim fso As Object, f As Object
Set fso = CreateObject("scripting.filesystemobject")
Set f = fso.getfile("C:\Evren\Deneme1.txt")
Range("A1").Value = f.Name
Range("B1").Value = Round(f.Size / 1024, 0) & "kb"
End Sub