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

[Mr Mansour 325]

با ســـلام

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

متاسفانه یکی از دوستان قطعه کدی رو گذاشتن انجام دادم ولی درست نمایش نمیده مثلا پوشه ی 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

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

 

[مهدی ایزدی 9,203]

درود

کد بالا بیشتر برای گرفتن حجم فایل استفاده میشه، نه گرفتن حجم فولدر

از این روش استفاده کنید ببینید جواب میگیرید؟

 

Sub CalcSize(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 + CalcSize(File.Combine(Folder, f),recursive)
End If
End If
size = size + File.Size(Folder, f)
Next
Return size
End Sub