PDA

View Full Version : جستجو در فولدر و نمایش اطلاعات درون لیست باکس



ehsan-tr
چهارشنبه 05 آذر 1393, 20:32 عصر
من یه فولدر کنار برنامم دارم به نام ( Data ) و توش چندتا فلودر دیگه دارم
داخل برنامم یه لیست باکس دارم
حالا میخوام وقتی فرمم لود شد بالا اومد داخل فولدر ( Data ) رو که چندتا فولدر دیگه هست سرچ کنه و تمام فایلهایی رو که داخل فولدرهاست رو در لیست باکسم به ترتیب نمایش بده پشت سر هم
یعنی مثل آتورانهایی که شرکت های نرم افزاری میسازن
مثل این عکس
126056
از دوستان هرکی بلده لطفا راهنمایی کنه ممنون میشم

Mani_rf
چهارشنبه 05 آذر 1393, 22:11 عصر
یک نگاهی به کتابخانه System.IO و کلاس Directory بی انداز. در این کلاس تمامی توابع لازم برای انجام این کار وجود دارد.

ehsan-tr
پنج شنبه 06 آذر 1393, 09:26 صبح
خودم پیدا کردم

اینو بالای فرمتون بنویسید

Imports System.IO

بعدش این کد رو داخل فرم لود برنامه قرار بدین

Dim dir As String Me.ListBox1.Items.Clear()
Dim dirs() As String = Directory.GetDirectories(Application.StartupPath + "\Data")


For Each dir In dirs
Dim path() As String = dir.Split("\")
Dim chunk As Integer = path.Length
Dim folderName As String = path(chunk - 1)
Me.ListBox1.Items.Add(folderName)
Next