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
اما وقتی تعداد فایل های پوشه زیاد هست برنامه هنگ میکنه.
روش دیگه ای برای گرفتن سایز پوشه هست؟؟تعداد فایل های پوشه هم تقریبا بیست هزارتا هستش.
سوال
mohsen.gh 48
سلام
من با این ساب سایز پوشه رو میگیرم
اما وقتی تعداد فایل های پوشه زیاد هست برنامه هنگ میکنه.
روش دیگه ای برای گرفتن سایز پوشه هست؟؟تعداد فایل های پوشه هم تقریبا بیست هزارتا هستش.
لینک ارسال
به اشتراک گذاری در سایت های دیگر
4 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.