بدست آوردن سایز یک فولدر

[Sharif Lotfi]

با سلام به همه دوستان.
من میخوام با کد نویسی سایز یک فولدر رو به دست بیارم . کسی از دوستان راهی برای این کار داره ؟ اگه میشه یه کد نمونه بذارین.

[eyes_shut_number1]

دوست عزیز با این یکم ور بورو ببیین چی میتوونی در بیاری

System.IO.DirectoryIno
من نتونستم پیدا کنم.احتمالا همینجاست

[eyes_shut_number1]

با این کار میتونی تمام زیر دایرکتری هارو در بیاری

DimsubfolderAsSystem.IO.DirectoryInfo
subfolder = NewDirectoryInfo("c:/")
DimsubfoldersAsDirectoryInfo
ForEachsubfoldersInsubfolder.GetDirectories
MessageBox.Show(subfolders.ToString)
Next

جای این قسمتGetDirectories انتخاب های دیگری هم داری
با این کار کن ببین پیدا میکنی
اگرم خودم پیدا کردو میذارم

[asar_001]

این کدها مربوط به 2005 می شه؟؟

[RezaKia]

سلام،
من این کد رو مستقیماً از سایت Microsoft پیدا کردم.


' The following example calculates the size of a directory
' and its subdirectories, if any, and displays the total size
' in bytes.
Imports System
Imports System.IO
Imports Microsoft.VisualBasic



Public Class ShowDirSize

Public Shared Function DirSize(ByVal d As DirectoryInfo) As Long
Dim Size As Long = 0
' Add file sizes.
Dim fis As FileInfo() = d.GetFiles()
Dim fi As FileInfo
For Each fi In fis
Size += fi.Length
Next fi
' Add subdirectory sizes.
Dim dis As DirectoryInfo() = d.GetDirectories()
Dim di As DirectoryInfo
For Each di In dis
Size += DirSize(di)
Next di
Return Size
End Function 'DirSize

Public Overloads Shared Sub Main(ByVal args() As String)
If args.Length <> 1 Then
Console.WriteLine("You must provide a directory argument at the command line.")
Else
Dim d As New DirectoryInfo(args(0))
Console.WriteLine("The size of {0} and its subdirectories is {1} bytes.", d, DirSize(d))
End If
End Sub 'Main
End Class 'ShowDirSize