رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.
شایان آباد

CalcSize - Get size of a folder

پست های پیشنهاد شده

شایان آباد    6,137

بنیان گذار و مدیر فنی

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

 

 

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


لینک به ارسال

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

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

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

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

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

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

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

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

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

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

×