dosya boyutu

[mtl]

Bir dosyanın boyutunu nasıl öğrenebilirim?

 

[Seceren]

Sağ tık özellikler şeklinde deneyin diyeceğimde, soru makrolar kısmında sorulmuş. Yanlışmı anladım..

 

[Zeki Gürsoy]

Msgbox "Dosya boyutu : " & FileLen("C:\XXX.xls") & " bayt."

 

[mtl]

Teşekkür ederim

 

[emrexcel123]

eğer aktif sayfayı isterseniz şu kodu kullanabilirsiniz >>
Sub boyut()
MsgBox FileLen(ThisWorkbook.Path & "\" & ActiveWorkbook.Name) & " bayt"
End Sub
ya da KB cinsinden isterseniz >>
Sub boyut()
dgr = FileLen(ThisWorkbook.Path & "\" & ActiveWorkbook.Name) / 1024
MsgBox dgr & " KB"
End Sub
ii çalışmalar...