29-07-13, 05:03 PM
29-07-13, 06:18 PM
ضع هذه الطريقة
وعند الاستدعاء ضع الكود في زر بوتون مثلآ
كود :
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 Sub29-07-13, 06:23 PM
الله يجزيك الف خير
بارك الله فيك
بارك الله فيك
إقتباس :جب أن تضع للبعض سمعات قبل إعطائها إلى 3booody مرة أخرى.
29-07-13, 06:29 PM
وجزاك بمثله اسأل الله ان يعطيك الصحة والعافية
29-07-13, 09:22 PM
الكود شغال تمام بس بيجيب اسم الفولدر كامل ممكن اسم الملفات فقط
يعني
d:\2003\exel\2006
حاولت اضع trim ("d:\2003\exel\") بس مظبطش الكود
يعني
d:\2003\exel\2006
حاولت اضع trim ("d:\2003\exel\") بس مظبطش الكود
29-07-13, 10:35 PM
استبدل هذا الكود
بهذا
كود :
ListBox1.Items.Add(files)كود :
ListBox1.Items.Add(files.Split("\")(files.Split("\").Count - 1))29-07-13, 10:35 PM
استخدم
كود :
io.path.getfilename("full path here")30-07-13, 03:23 AM
الكود بة مشكلة في count
ListBox2.Items.Add(files.Split("\")(files.Split("\").Count - 1))
ListBox2.Items.Add(files.Split("\")(files.Split("\").Count - 1))
30-07-13, 03:28 AM
انا حاولت بالكود دة واشتغل وشكرا جدا لاخي مسعود و3booody
"جزاكم اللة كل خير"
(files.Replace("H:\exel", Nothing))
"جزاكم اللة كل خير"
(files.Replace("H:\exel", Nothing))