Welcome to بیسیک فور ایکس

Register now to gain access to all of our features. Once registered and logged in, you will be able to contribute to this site by submitting your own content or replying to existing content. You'll be able to customize your profile, receive reputation points as a reward for submitting content, while also communicating with other members via your own private inbox, plus much more! This message will be removed once you have signed in.

  • 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

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


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

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

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

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

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


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

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

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


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