01-12-15, 04:30 PM
01-12-15, 07:25 PM
كود :
Dim infoReader As System.IO.FileInfo
infoReader = My.Computer.FileSystem.GetFileInfo("C:\Users\DOL\Music\")
MsgBox("File is " & infoReader.Length & " bytes.")
01-12-15, 08:21 PM
تفضل اخى
كود :
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)
01-12-15, 09:00 PM
شكراً لتفاعلكم
أخوي أسامه المجلد اللي أبي أقيس حجمه داخله مجلدات هل الكود يعمل مع يتناسب معي ..؟
المسـار المجلدات الموجوده داخل Music
لما أضع المسـار بهذه الطريقه يعطيني خطأ
أخوي أسامه المجلد اللي أبي أقيس حجمه داخله مجلدات هل الكود يعمل مع يتناسب معي ..؟
كود :
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
لما أضع المسـار بهذه الطريقه يعطيني خطأ
01-12-15, 09:11 PM
(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 Function
01-12-15, 11:24 PM
هو مجلد داخله مجلدات أبي أقيس مساحة جميع المجلدات الداخليه
في رساله واحده
في رساله واحده
01-12-15, 11:36 PM
هاد الكود بيقيس مساحة جميع المجلدات يلي بداخل المجلد المحدد
وممكن بسطر مختصر
أو
كود :
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)
01-12-15, 11:50 PM
(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
02-12-15, 01:41 AM
ألف شكـر على التفــاعل يا أصدقائي