رفتن به مطلب

نمایش حجم فایل یا فولدر | MB | KB و....


محمد رشوند

ارسال های توصیه شده

یک تابع با انجام عملیات ریاضی روی مقدار اندازه فولدر یا فایل را به حالت استاندارد بر میگرداند

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

نحوه استفاده از تابع به صورت زیر است

dim size1 as string
size1 = FormatFileSize(File.Size(File.DirRootExternal,"/Neshani Folder Ya File"))

lbl1.text= size1
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...