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

وشكرا لكم
الرد }}}
تم الشكر بواسطة:
#2
هذه طريقة بسيطة ولكنها ليست الأسرع

كود :
       Dim _fileSize As Long
       For Each _file As String In My.Computer.FileSystem.GetFiles("D:\YourFolder")
           Dim _fileInfo As New System.IO.FileInfo(_file)
           _fileSize += _fileInfo.Length
       Next
       TextBox1.Text = _fileSize.ToString() + " bytes"

الرد }}}
تم الشكر بواسطة: سعود , Iman Mohamed Omran
#3
Calculate the size of a directory and its subdirectories and displays the total size in bytes. : Directory « File Directory « VB.Net
الصراحة كود رائع جربته ويعمل بكفاءة.

يتبقى كيفية التعديل على الدالة لمعرفة عدد الملفات والمجلدات.


PHP كود :
Imports System.IO
Public Class Form1
    Public Shared 
Function DirSize(ByVal d As DirectoryInfo) As Long
        Dim Size 
As Long 0
        Dim fis 
As FileInfo() = d.GetFiles()
 
       Dim fi As FileInfo
        For Each fi In fis
            Size 
+= fi.Length
        Next fi
        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
    Private Function gfc(ByVal d As DirectoryInfo) As Long
        Dim count As Long = 0
        Dim fis As FileInfo() = d.GetFiles()
        count += fis.Count
        Dim dis As DirectoryInfo() = d.GetDirectories()
        Dim di As DirectoryInfo
        For Each di In dis
            count += gfc(di)
        Next di
        Return count
    End Function
    Private Function gdc(ByVal d As DirectoryInfo) As Long
        Dim count As Long = 0
        Dim dis As DirectoryInfo() = d.GetDirectories()
        count += dis.Count
        Dim di As DirectoryInfo
        For Each di In dis
            count += gdc(di)
        Next di
        Return count
    End Function
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim o As New FolderBrowserDialog
        If o.ShowDialog = DialogResult.OK Then
            Dim d As New DirectoryInfo(o.SelectedPath)
            fs.Text = DirSize(d)
            fc.Text = gfc(d)
            folderscount.Text = gdc(d)
        End If
    End Sub
End Class 

هذا التعديل اللازم بعد ان قارنت المعلومات كما ترون بالصورة.
الرد }}}
تم الشكر بواسطة: Iman Mohamed Omran
#4
شكرا علي مساعدتكم شباب 
الحين ب اجرب انشاء الله يعملو الاكواد ^_^
الرد }}}
تم الشكر بواسطة:
#5
(21-04-18, 05:23 AM)سعود كتب : Calculate the size of a directory and its subdirectories and displays the total size in bytes. : Directory « File Directory « VB.Net
الصراحة كود رائع جربته ويعمل بكفاءة.

يتبقى كيفية التعديل على الدالة لمعرفة عدد الملفات والمجلدات.


PHP كود :
Imports System.IO
Public Class Form1
    Public Shared 
Function DirSize(ByVal d As DirectoryInfo) As Long
        Dim Size 
As Long 0
        Dim fis 
As FileInfo() = d.GetFiles()
 
       Dim fi As FileInfo
        For Each fi In fis
            Size 
+= fi.Length
        Next fi
        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
    Private Function gfc(ByVal d As DirectoryInfo) As Long
        Dim count As Long = 0
        Dim fis As FileInfo() = d.GetFiles()
        count += fis.Count
        Dim dis As DirectoryInfo() = d.GetDirectories()
        Dim di As DirectoryInfo
        For Each di In dis
            count += gfc(di)
        Next di
        Return count
    End Function
    Private Function gdc(ByVal d As DirectoryInfo) As Long
        Dim count As Long = 0
        Dim dis As DirectoryInfo() = d.GetDirectories()
        count += dis.Count
        Dim di As DirectoryInfo
        For Each di In dis
            count += gdc(di)
        Next di
        Return count
    End Function
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim o As New FolderBrowserDialog
        If o.ShowDialog = DialogResult.OK Then
            Dim d As New DirectoryInfo(o.SelectedPath)
            fs.Text = DirSize(d)
            fc.Text = gfc(d)
            folderscount.Text = gdc(d)
        End If
    End Sub
End Class 

هذا التعديل اللازم بعد ان قارنت المعلومات كما ترون بالصورة.

اوك حبي الحل -_- ان اريد ملف واحد وانا اختاره يعني اكتب مكانه انا وليس اختاره ب البرنامج شو اعمل كنت بافصص في الاكواد لكن لخبطت كثير لهاذا ياريت تعدله مشان يكون اختيار لملف واحد وانا اختاره ( مسار الملف انا اكتبه يعني حطلي مكان المسار ("path") ) 
وشكرا ^_^ علي شرح
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 205 25-02-24, 11:26 PM
آخر رد: heem1986
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 149 21-02-24, 01:37 AM
آخر رد: heem1986
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 173 20-02-24, 12:00 AM
آخر رد: Kamil
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 320 19-02-24, 12:28 AM
آخر رد: مصمم هاوي
  كيفية حفظ وتحزيم المشروع وتشغيله كبرنامج علىجميع الاجهزة الرائد 3 1,118 18-02-24, 10:37 PM
آخر رد: الحزين اليماني
  الالوان في فيجوال بيسك atefkhalf2004 2 408 05-01-24, 04:38 PM
آخر رد: atefkhalf2004
  تحويل مشروع من c# الى فيجول بيسك Lathe1 4 709 05-01-24, 01:05 AM
آخر رد: HALIM ELEULMA
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 303 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  [سؤال] كيفية ربط ماكينة الدفع ببرنامج الكاشير ؟ osamaelmaghraby 3 317 26-12-23, 11:53 PM
آخر رد: osamaelmaghraby
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,815 25-12-23, 06:30 PM
آخر رد: الحزين اليماني

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


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