+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود يحسب حجم الملفات (/showthread.php?tid=13984)
كود يحسب حجم الملفات - adel27 - 01-12-15
الســلام عليكم ورحمة الله وبركاته
محتاج كود يحسب حجم كل المجلدات الموجوده في مسـار ثابت ويعطيني المسـاحه الشـاغره والمتوفره
RE: كود يحسب حجم الملفات - adel27 - 01-12-15
كود :
Dim infoReader As System.IO.FileInfo
infoReader = My.Computer.FileSystem.GetFileInfo("C:\Users\DOL\Music\")
MsgBox("File is " & infoReader.Length & " bytes.")RE: كود يحسب حجم الملفات - أسامة - 01-12-15
تفضل اخى
كود :
Dim CalculatedSize As Decimal
Dim TheSize As Long = Long.Parse(My.Computer.FileSystem.GetFileInfo("E:\Music\New folder\Avril Lavigne - I Love You [Goodbye lullaby] - YouTube.mp3").Length)
Dim SizeType As String = "B"
If TheSize < 1024 Then
CalculatedSize = TheSize
ElseIf TheSize > 1024 AndAlso TheSize < (1024 ^ 2) Then 'KB
CalculatedSize = Math.Round((TheSize / 1024), 2)
SizeType = "KB"
ElseIf TheSize > (1024 ^ 2) AndAlso TheSize < (1024 ^ 3) Then 'MB
CalculatedSize = Math.Round((TheSize / (1024 ^ 2)), 2)
SizeType = "MB"
ElseIf TheSize > (1024 ^ 3) AndAlso TheSize < (1024 ^ 4) Then 'GB
CalculatedSize = Math.Round((TheSize / (1024 ^ 3)), 2)
SizeType = "GB"
ElseIf TheSize > (1024 ^ 4) Then 'TB
CalculatedSize = Math.Round((TheSize / (1024 ^ 4)), 2)
SizeType = "TB"
End If
MessageBox.Show("File size is: " & CalculatedSize.ToString & " " & SizeType, "File size", MessageBoxButtons.OK, MessageBoxIcon.Information)RE: كود يحسب حجم الملفات - adel27 - 01-12-15
شكراً لتفاعلكم
أخوي أسامه المجلد اللي أبي أقيس حجمه داخله مجلدات هل الكود يعمل مع يتناسب معي ..؟
كود :
Dim CalculatedSize As Decimal
Dim TheSize As Long = Long.Parse(My.Computer.FileSystem.GetFileInfo("C:\Music\").Length)
"Dim SizeType As String = "Bكود :
If TheSize < 1024 Thenلما أضع المسـار بهذه الطريقه يعطيني خطأ
RE: كود يحسب حجم الملفات - أسامة - 01-12-15
(01-12-15, 09:00 PM)adel27 كتب : شكراً لتفاعلكم
أخوي أسامه المجلد اللي أبي أقيس حجمه داخله مجلدات هل الكود يعمل مع يتناسب معي ..؟
كود :
Dim CalculatedSize As Decimal
Dim TheSize As Long = Long.Parse(My.Computer.FileSystem.GetFileInfo("C:\Music\").Length)
"Dim SizeType As String = "Bالمسـار المجلدات الموجوده داخل Musicكود :
If TheSize < 1024 Then
لما أضع المسـار بهذه الطريقه يعطيني خطأ
هل تريد قياس حجم المجلد نفسة ام الملفات التى بى المجلد ؟
اذا كنت تريد قياس حجم المجلد نفسةاستخدم هذا الكود
كود :
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Dim CalculatedSize As Decimal
Dim SizeType As String = "B"
Dim TheSize As Long = Long.Parse(DirectorySize("E:\Music\NewFolder", True))
If TheSize < 1024 Then
CalculatedSize = TheSize
ElseIf TheSize > 1024 AndAlso TheSize < (1024 ^ 2) Then 'KB
CalculatedSize = Math.Round((TheSize / 1024), 2)
SizeType = "KB"
ElseIf TheSize > (1024 ^ 2) AndAlso TheSize < (1024 ^ 3) Then 'MB
CalculatedSize = Math.Round((TheSize / (1024 ^ 2)), 2)
SizeType = "MB"
ElseIf TheSize > (1024 ^ 3) AndAlso TheSize < (1024 ^ 4) Then 'GB
CalculatedSize = Math.Round((TheSize / (1024 ^ 3)), 2)
SizeType = "GB"
ElseIf TheSize > (1024 ^ 4) Then 'TB
CalculatedSize = Math.Round((TheSize / (1024 ^ 4)), 2)
SizeType = "TB"
End If
MessageBox.Show("File size is: " & CalculatedSize.ToString & " " & SizeType, "File size", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Overloads Function DirectorySize(ByVal sPath As String, ByVal bRecursive As Boolean) As Long
Dim lngNumberOfDirectories As Long = 0
Dim Size As Long = 0
Try
Dim fil As FileInfo
Dim diDir As New DirectoryInfo(sPath)
For Each fil In diDir.GetFiles()
Size += fil.Length
Next fil
If bRecursive = True Then
Dim diSubDir As DirectoryInfo
For Each diSubDir In diDir.GetDirectories()
Size += DirectorySize(diSubDir.FullName, True)
lngNumberOfDirectories += 1
Next
End If
Return Size
Catch fex As System.IO.FileNotFoundException
' File not found. Take no action
Catch ex As Exception
' Another error occurred
Return 0
End Try
End FunctionRE: كود يحسب حجم الملفات - adel27 - 01-12-15
هو مجلد داخله مجلدات أبي أقيس مساحة جميع المجلدات الداخليه
في رساله واحده
RE: كود يحسب حجم الملفات - hamada558 - 01-12-15
هاد الكود بيقيس مساحة جميع المجلدات يلي بداخل المجلد المحدد
كود :
Shared Function GetDirectorySize(ByVal directory As String) As Long
Dim TotalSize As Long = 0
For Each s As String In IO.Directory.GetFiles(directory, "*.*", IO.SearchOption.AllDirectories)
TotalSize += New IO.FileInfo(s).Length
Next
Return TotalSize
End Functionوممكن بسطر مختصر
كود :
Dim directory As String = "C:\folder"
Dim directorySize As Long = (From s In IO.Directory.GetFiles(directory, "*.*", IO.SearchOption.AllDirectories) Select New IO.FileInfo(s).Length).Sumكود :
Dim directory As String = "C:\folder"
Dim directorySize As Long = IO.Directory.GetFiles(directory, "*.*", IO.SearchOption.AllDirectories).Sum(Function(s) New IO.FileInfo(s).Length)RE: كود يحسب حجم الملفات - HASAN6.0 - 01-12-15
(01-12-15, 11:24 PM)adel27 كتب : هو مجلد داخله مجلدات أبي أقيس مساحة جميع المجلدات الداخليه
في رساله واحده
تفضل
PHP كود :
Dim fsize As Long = 0
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim opn As New FolderBrowserDialog
If opn.ShowDialog = Windows.Forms.DialogResult.OK Then
fsize = 0
getSize(opn.SelectedPath)
MsgBox(fsize.ToString & " bytes")
MsgBox(Format(fsize / 1024, "#.000") & " KB")
MsgBox(Format(fsize / 1048576, "#.000") & " MB")
End If
End Sub
Sub getSize(ByVal path_ As String)
For Each file As String In My.Computer.FileSystem.GetFiles(path_)
Dim finnfo As New System.IO.FileInfo(file)
fsize = fsize + finnfo.Length
Next
For Each file As String In My.Computer.FileSystem.GetDirectories(path_)
getSize(file)
Next
End Sub
RE: كود يحسب حجم الملفات - adel27 - 02-12-15
ألف شكـر على التفــاعل يا أصدقائي