رفتن به مطلب
بیسیک فور ایکس
  • اطلاعیه ها

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
    • H@mid.RS

      راه اندازی وبلاگ برای انجمن   دوشنبه, 18 اردیبهشت 1396

      درود به همه دوستان عزیز از این پس کاربران ویژه  - همکاران - و مدیران میتوانند در انجمن برای خود وبلاگ بسازند
  • 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 پاسخ به این سوال تا کنون داده شده است

Recommended Posts

  • 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   نمایش داده می شه

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 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 میده دقیق دقیق


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


در پناه حق


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


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

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

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

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

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

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

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

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

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

×