Asp ile dosya boyutu !!!

[trextra]

Bu şekilde yapıp tam sayıya çevirebilirsin. Virgülden sonrasını atar. Ama mesela 6,99 nerdeyse 7 sayılır. Bunuda 6 şeklinde gösterir. Haberin olsun.

<%
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Klasor = FSO.GetFolder(Server.Mappath("/klasorun"))
Response.Write int(Klasor.Size/1024/1024)
%>

[trextra]

Virgülden sonraki rakam farkı 0,5 den küçükse bir üst sayıya yuvarlama fonksiyonu yazdım. En azından 6,51 ya da 6,99 u 7 ye yuvarlayacak

<%
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Klasor = FSO.GetFolder(Server.Mappath("/klasorun"))

DosyaBoyutMB = Klasor.Size/1024/1024
intDosyaBoyutMB = int(DosyaBoyutMB)

if (intDosyaBoyutMB+1) - DosyaBoyutMB < 0.5 then
Response.Write  intDosyaBoyutMB + 1
Else
Response.Write intDosyaBoyutMB
End if

%>

[Yusuf]

mithrandil´isimli üyeden Alıntı

pekı, 426 mb ı dırek gosterme ne oluyor yanı çok kusuratlı oluyr boyle

Herhangi bir matematiksel işlemden sonra virgül sonrasını "ROUND" fonksiyonu ile belirleyebilirsin.

round(Klasor.Size/1024000,0)

Burdaki "0", virgülden sonra basamak göstermemesi anlamına geliyor.
1,2,3.. diye tanımlayabilirsin.