ehsan-68
چهارشنبه 22 آذر 1391, 20:07 عصر
سلام به همه دوستان ...
از اونجایی که نیاز خودم بود و در تالار گشتمو پیدا نکردم ...
و رفتم جایه دیگه گشتم و پیدا کردم گفتم بذارم تا دوستان استفاده بکنن ... (از بچگی انشام خوب نبود،چی شد) :لبخند:
Public Function GetWSHFolderSize(ByVal Fldr As String) As Double
'Reference "Windows Script Host Object Model" on the COM tab.
Dim FSO As New IWshRuntimeLibrary.FileSystemObject()
Dim FldrSize As Double = CDbl(FSO.GetFolder(Fldr).Size)
Marshal.FinalReleaseComObject(FSO)
Return FldrSize
End Function
فقط یه چیزی برایه دوستانی که نمیدونن ... یه رفرنس داره که باید اضافه کنید (تویه خط سبزش گفته)
موفق باشید
از اونجایی که نیاز خودم بود و در تالار گشتمو پیدا نکردم ...
و رفتم جایه دیگه گشتم و پیدا کردم گفتم بذارم تا دوستان استفاده بکنن ... (از بچگی انشام خوب نبود،چی شد) :لبخند:
Public Function GetWSHFolderSize(ByVal Fldr As String) As Double
'Reference "Windows Script Host Object Model" on the COM tab.
Dim FSO As New IWshRuntimeLibrary.FileSystemObject()
Dim FldrSize As Double = CDbl(FSO.GetFolder(Fldr).Size)
Marshal.FinalReleaseComObject(FSO)
Return FldrSize
End Function
فقط یه چیزی برایه دوستانی که نمیدونن ... یه رفرنس داره که باید اضافه کنید (تویه خط سبزش گفته)
موفق باشید