View Full Version : بدست آوردن سایز یک فولدر
Sharif Lotfi
سه شنبه 26 تیر 1386, 08:09 صبح
با سلام به همه دوستان.
من میخوام با کد نویسی سایز یک فولدر رو به دست بیارم . کسی از دوستان راهی برای این کار داره ؟ اگه میشه یه کد نمونه بذارین.
eyes_shut_number1
سه شنبه 26 تیر 1386, 09:23 صبح
دوست عزیز با این یکم ور بورو ببیین چی میتوونی در بیاری
System.IO.DirectoryIno
من نتونستم پیدا کنم.احتمالا همینجاست
eyes_shut_number1
سه شنبه 26 تیر 1386, 09:33 صبح
با این کار میتونی تمام زیر دایرکتری هارو در بیاری
DimsubfolderAsSystem.IO.DirectoryInfo
subfolder = NewDirectoryInfo("c:/")
DimsubfoldersAsDirectoryInfo
ForEachsubfoldersInsubfolder.GetDirectories
MessageBox.Show(subfolders.ToString)
Next
جای این قسمتGetDirectories انتخاب های دیگری هم داری
با این کار کن ببین پیدا میکنی
اگرم خودم پیدا کردو میذارم
asar_001
سه شنبه 26 تیر 1386, 17:07 عصر
این کدها مربوط به 2005 می شه؟؟
RezaKia
سه شنبه 26 تیر 1386, 22:00 عصر
سلام،
من این کد رو مستقیماً از سایت 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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.