منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود نقل كل الملفات من الفولدرات داخل ليست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=9836)



كود نقل كل الملفات من الفولدرات داخل ليست بوكس - mazen - 29-07-13

انا عندي مجموعة فولدرات 20 بكل فولدر عدد6 من الملفات اريد نقل كل الملفات بكل الفولدرات داخل اليست بوكس


كود نقل كل الملفات من الفولدرات داخل ليست بوكس - 3booody - 29-07-13

ضع هذه الطريقة
كود :
Private Sub GetFiles(ByVal path As String)
        Try
            For Each folder As String In IO.Directory.GetDirectories(path)
                Application.DoEvents()
                GetFiles(folder)
            Next
            For Each files As String In IO.Directory.GetFiles(path)
                Application.DoEvents()
                ListBox1.Items.Add(files)
            Next
        Catch ex As Exception

        End Try
    End Sub

وعند الاستدعاء ضع الكود في زر بوتون مثلآ
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        GetFiles("مسار المجلد الذي يحوي على الفولدرات")
    End Sub



كود نقل كل الملفات من الفولدرات داخل ليست بوكس - مبرمج بلا حدود - 29-07-13

الله يجزيك الف خير
بارك الله فيك

إقتباس :جب أن تضع للبعض سمعات قبل إعطائها إلى 3booody مرة أخرى.



كود نقل كل الملفات من الفولدرات داخل ليست بوكس - 3booody - 29-07-13

وجزاك بمثله اسأل الله ان يعطيك الصحة والعافية


كود نقل كل الملفات من الفولدرات داخل ليست بوكس - mazen - 29-07-13

الكود شغال تمام بس بيجيب اسم الفولدر كامل ممكن اسم الملفات فقط

يعني
d:\2003\exel\2006

حاولت اضع trim ("d:\2003\exel\") بس مظبطش الكود


كود نقل كل الملفات من الفولدرات داخل ليست بوكس - 3booody - 29-07-13

استبدل هذا الكود
كود :
ListBox1.Items.Add(files)
بهذا
كود :
ListBox1.Items.Add(files.Split("\")(files.Split("\").Count - 1))



كود نقل كل الملفات من الفولدرات داخل ليست بوكس - سعود - 29-07-13

استخدم
كود :
io.path.getfilename("full path here")



كود نقل كل الملفات من الفولدرات داخل ليست بوكس - mazen - 30-07-13

الكود بة مشكلة في count

ListBox2.Items.Add(files.Split("\")(files.Split("\").Count - 1))


كود نقل كل الملفات من الفولدرات داخل ليست بوكس - mazen - 30-07-13

انا حاولت بالكود دة واشتغل وشكرا جدا لاخي مسعود و3booody

"جزاكم اللة كل خير"

(files.Replace("H:\exel", Nothing))