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

[afraz aa 478]

سلام دوستان

 

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

 

من از این کد استفاده میکنم ولی سازه پوشه رو نمیده

Dim sizePoshe As Long
sizePoshe= File.Size(File.DirRootExternal &"/afraz","afrazimagse")

sizePoshe=sizePoshe / 1024

Msgbox(sizePoshe,"size")

دوستان منتظرمممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممم

[مهدی ایزدی 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

[afraz aa 478]

سلام استاد ایزدی

 

ممنونم 1ساعت پیش تو سایت مرجع پیدا کردم این تابع رو تست کردم کار کرد

 

باز ممنون