• 0
Mansour

مشکل در گرفتن حجم فایل

سوال

با ســـلام

بنده میخوام از تو حافظه ی گوشیم اندازه ی حجم فایل های کلی که توی یک پوشه قرار دارند رو بگیرم

متاسفانه یکی از دوستان قطعه کدی رو گذاشتن انجام دادم ولی درست نمایش نمیده مثلا پوشه ی 6 مگابایتی رو 8 کیلوبایت مینویسه

از دوستانی که میدونن به چه شکل هست لطفا راهنمایی کنین ممنون میشم

 

اینم متد گرفتن حجم فایل :

Sub FormatFileSize(Bytes As Float) As String

Private Unit() As String = Array As String(" Byte", " KB", " MB", " GB", " TB", " PB", " EB", " ZB", " YB")

If Bytes = 0 Then

Return "0 Bytes"

Else

Private Po, Si As Double
Private I As Int

Bytes = Abs(Bytes)

I = Floor(Logarithm(Bytes, 1024))
Po = Power(1024, I)
Si = Bytes / Po

Return NumberFormat(Si, 1, 3) & Unit(I)

End If

End Sub

منتظر جواب سبزتان هستم :دی

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

2 پاسخ به این سوال تا کنون داده شده است

  • 0

از کد زیر استفاده کنید چک شده قبلا مجتبی تو انجمن قرار داده بود

Private getsize As Long
Public txtsize As String
Dim dir,FileName As String

dir=File.DirRootExternal
FileName="mojtaba.txt"

Dim getsize As Long = File.Size(dir, FileName)'به جای dir  file.dir... بنویسید و به جای filename  اسم فایل رو بزارید'

txtsize=NumberFormat2(getsize/1000, 0, 0, 0, True)&" KB"

Label1.Text = txtsize'حجم توی label1   نمایش داده می شه

Mansour و H@mid.RS پسند شده است

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

درود


روش اقا سینا برای گرفتن اندازه یک فایل هست به کیلوبایت


 


روش گرفتن اندازه یک فولدر به صورت زیر می باشد


 


کلاس زیر رو به پروژه ات اضافه کن



Sub FolderSize(Folder As String, recursive As Boolean) As Long
Dim size As Long
For Each f As String In File.ListFiles(Folder)
If recursive Then
If File.IsDirectory(Folder, f) Then
size = size + FolderSize(File.Combine(Folder, f),recursive)
End If
End If
size = size + File.Size(Folder, f)
Next
Return size
End Sub

حالا برای نمایش حجم :



Log(FolderSize(File.DirRootExternal&"/ADM",True))

بهت حجم رو به صورت بایت و از نوع long میده دقیق دقیق


خودت می تونی با ی تقسیم تبدیل کنیش به هر واحدی که دوست داشتی


در پناه حق


Sina پسند دیده است

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید


ورود به حساب کاربری