Asp ile dosya boyutu !!!

[mithrandil]

server a kullanıcılar dosya yukluyo çeşitli boyutlarda,

yuklemış oldukları boyutları ben toplam olarak nasıl gosterebılırım sıtede,

toplam xx mb dosya vardır,

eğer kullanıcıalr dosyaların boyutunu yazsaydı labılrıdı ama hepsı boş bırakıyor dırekt serverda yuklenen klasorun toplam boyutunu alma gıbı bır işlem yapmam lazım uzun sure araştırdım ancak bir sonc elde edeemdım bılen varsa yardım ederse sevınırım

[Developer]

<%
' Veritabanına bağlanalım
set kon=server.createobject("addob.connection")
conn.open= "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= " & server.mappath ("db/data.mdb")
set rs=server.createobject("adodb.recordset")
sql = "select * from tablo"
conn.open sq,kon,3,3
%>

'Sonra Recordcount yöntemi ile kayıt sayısını kolayca alıyoruz.
Veritabanındaki tabloda toplam <% rs.recordcount%>kayıt var metodu ile alabilirsin.

[Developer]

<'--2. Yöntem (SQL ile)>

<%
'-- Değişkenler tanımlandı.
Dim cnnDB, Rs, kayitsayisi, MySQL
'-- cnnDB isimli veritabanı bağlantı nesnesi oluşturuldu.
Set cnnDB=Server.CreateObject("ADODB.Connection" )
'-- ODBC'den MyDatabase isimli veritabanı açıldı.
cnnDB.Open "MyDatabase"
'-- SQL oluşturuldu.
mySQL="Select COUNT(*) FROM TblOrnek;"
'-- SQL bağlantı nesnesi üzerinde çalıştırılarak Rs isimli recordSet nesnesine aktarıldı.
Set Rs =cnnDB.Execute(mySQL)
'-- Rs'in 0. Alanı kayıt sayısını bize verdi.
kayitsayisi=Rs(0)
'-- Kayıt sayısı ekrana yazdırıldı.
Response.Write kayitsayisi
'-- RecordSet kapatıldı.
Rs.Close
'-- Bağlantı kapatıldı.
cnnDB.Close
'-- Bağlantı bellekten silindi.
Set cnnDB=Nothing
%>

[mithrandil]

ancak yazdığın kayıt sayısını almak benım ıstedığım,
mesela serverda klasorde 100 dosya var, bu 100 dosyanın toplam kaç mb olduğu

ve bunu dırekt serverdan alması lazım çunku verıtabanında kaç kb oldukalrı yazmıyor

[trextra]

<%

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Klasor = FSO.GetFolder(Server.Mappath("/KLASORUN"))
Response.Write Klasor.Size
%>

Çıkan sonucu 1024'e bölersek sonucu KB cinsinden alırız.

<%
Set Klasor = FSO.GetFolder(Server.Mappath("/KLASORUN"))
Response.Write Klasor.Size/1024
%>

Burasıda KB oldu

[mithrandil]

Teşekkru edermı sayende halletmışem buyulsun sağolun

[mithrandil]

dediğin şekılde yaptım,
byte oalrak verıyı aldım dha sorna bu verıyı, 1 mb a karşılık gelen byte e cevırdım yanı 1024000 a ancak sonuc sanırım doğru değil, ve bundan zıyade neden bu kadar kusurlu vardu yuvarlama ımkanım yokmu bunu


Sitemizde 440228796 Byte a Karşılık 429.910933 MB Ödev Bulunmaktadır...

[Yusuf]

round(Klasor.Size/1024,2)

[trextra]

1024 ün katları şeklinde gider ölçüler. 1024x1024=1048576 ya böl. Bilgisayarındaki bir klasöre sağ tıkladığında da buna benzer bir sonuç alırsın. Ya da harddiskler. 2500 mb lık harddiski 2,5 gb diye satıyolar ama aslında 2,3 gb tır

[mithrandil]

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