تقييم الموضوع :
  • 2 أصوات - بمعدل 3
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] كود جلب حجم الملف
#1
بسم الله الرحمان الرحيم

السلام عليكم 


مثل ما موضح في العنوان اريد كود جلب حجم الملف ويضع حجم الملف في 


الليبل بس


وشكرا
الرد }}}
تم الشكر بواسطة:
#2
شوف اخي حظر 2 من  button
+ TextBox1.Text
 +lable1

button1
كود :
  Dim i As New FolderBrowserDialog
       If i.ShowDialog Then
           TextBox1.Text = i.SelectedPath ' هنا لاستعارض الملف الذي تود اظهاره
       End If

butto2
كود :
 Dim driveName As String = TextBox1.Text ' عبارة عن تعريف يمكنك تغير التكست بوكس بالكومبكس او اي شيئ من نوع string
       Dim drive As New DriveInfo(driveName)
       Label1.Text = "Total Size: " + Format(drive.TotalSize / 1024 / 1024 / 1024) + "GB" 'اظهار حجم الملف باجيجا بايت


وهاهو الكود باكامل

كود :
Imports System.IO

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim i As New FolderBrowserDialog
       If i.ShowDialog Then
           TextBox1.Text = i.SelectedPath ' هنا لاستعارض الملف الذي تود اظهاره
       End If
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Dim driveName As String = TextBox1.Text ' عبارة عن تعريف يمكنك تغير التكست بوكس بالكومبكس او اي شيئ من نوع string
       Dim drive As New DriveInfo(driveName)
       Label1.Text = "Total Size: " + Format(drive.TotalSize / 1024 / 1024 / 1024) + "GB" 'اظهار حجم الملف باجيجا بايت

   End Sub
End Class

ارجو ان يكون المطلوب
الرد }}}
تم الشكر بواسطة:
#3
او تفضل هذا يعطيك الحجم الذي تريد

تحتتاج لثلاثة من الليبل lebal1 label2 label3

كود :
Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As New FolderBrowserDialog
        If i.ShowDialog Then
            TextBox1.Text = i.SelectedPath ' هنا لاستعارض الملف الذي تود اظهاره
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim dInfo As New DirectoryInfo(TextBox1.Text)
        ' set bool parameter to false if you
        ' do not want to include subdirectories.
        Dim sizeOfDir As Long = DirectorySize(dInfo, True)

        Label1.Text = ("Directory size in Bytes : " & "{0:N0} Bytes" & sizeOfDir)
        Label2.Text = ("Directory size in KB : " & "{0:N2} KB" & (CDbl(sizeOfDir)) / 1024)
        Label3.Text = ("Directory size in MB : " & "{0:N2} MB" & (CDbl(sizeOfDir)) / (1024 * 1024))

    End Sub
    Private Function DirectorySize(ByVal dInfo As DirectoryInfo, _
   ByVal includeSubDir As Boolean) As Long
        ' Enumerate all the files
        Dim totalSize As Long = dInfo.EnumerateFiles() _
          .Sum(Function(file) file.Length)

        ' If Subdirectories are to be included
        If includeSubDir Then
            ' Enumerate all sub-directories
            totalSize += dInfo.EnumerateDirectories() _
             .Sum(Function(dir) DirectorySize(dir, True))
        End If
        Return totalSize
    End Function
End Class

احذف lebal الذي تريد Big Grin
الرد }}}
تم الشكر بواسطة:
#4
تفضل الدالتين واحدة للميجابايت والاخرى للكيلو والفرق بسيط
كود :
Private Function gmbfs(ByVal pth As String) As Single
       Dim fs As Single = My.Computer.FileSystem.GetFileInfo(pth).Length
       Return CInt(fs / 1024) / (1024)
   End Function
كود :
Private Function gkbfs(ByVal pth As String) As Single
       Dim fs As Single = My.Computer.FileSystem.GetFileInfo(pth).Length
       Return CInt(fs / 1024)
   End Function
للاستخدام
كود :
       Dim ofd As New OpenFileDialog
       If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
           Label1.Text = gkbfs(ofd.FileName) & "Size: kb" & vbNewLine & gmbfs(ofd.FileName) & "Size: mb"
       End If
الرد }}}
تم الشكر بواسطة: hitman48 , kslawy
#5
الله يعطيك العافيه جميعا
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo [سؤال] كيف أقوم بإجبار التطبيق (الفورم) على حفظ الملف المستعاد من قاعدة البيانات SQL server salam82 3 456 20-09-23, 01:42 PM
آخر رد: salam82
  كيف اقوم بقفل الملف الذي يستخدمه احد المستخدمين ابو محمد محمد محمد 8 644 21-04-23, 05:58 PM
آخر رد: ابو محمد محمد محمد
  حذف امتداد الملف aftfm 6 654 05-03-23, 05:41 PM
آخر رد: asmarsou
  مساعدة في حالة مشكلة تعديل الملف في قاعدة البيانات عبدالكريم برشدان 10 809 25-12-22, 08:32 PM
آخر رد: أبو خالد الشكري
  [VB.NET] ادخال الملف الى البرنامج Ibraheemalhamdo94 0 271 22-12-22, 03:31 AM
آخر رد: Ibraheemalhamdo94
  هل فيجوال بيسك يدعم تقسيم الملف؟ سعود 8 1,313 07-08-22, 05:38 AM
آخر رد: سعود
  كيف نتجاوز خطا (الملف قيد الاستخدام - حاولت و لكن) سعود 5 755 16-07-22, 10:00 AM
آخر رد: سعود
  اسم الملف مستمد من اداة التاريخ datetimepicker atefkhalf2004 3 1,301 02-03-22, 10:57 PM
آخر رد: atefkhalf2004
  فوائد الملف app.config fattah_hegazy 2 1,053 05-01-22, 12:47 AM
آخر رد: yassoo1985
  تغيير مسار قاعدة الملف قاعدة البيانات أكسس أبووسم 3 1,558 08-12-21, 03:40 PM
آخر رد: أبووسم

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم