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

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



طلب تعديل على هذا الكود - yasob - 25-08-16

تعديل على كود البرنامج بحيث عند الضعغط على زر button1  فى form1 يعرض محتويات الفولدر الذى تم اختياره من ال combobox  رقم 3 فى ال form2


RE: طلب تعديل على هذا الكود - LoveVb - 25-08-16

ياليت توضح اكثر
بالنسبه لكود جلب ملفات html فقط
قد اعطيتك الكود لكن هناك حل اخر افضل
IO.Directory.GetFiles("c:\", "*.html")


RE: طلب تعديل على هذا الكود - yasob - 27-08-16

شكرا لاهتمامك اخى
انا عايز كود للزر button1 بحيث لما احدد المسار فى الtext box 1 ثم احدد فولدر معين فى combobox 1 ثم احدد فولدر فرعى فى الcombobox2 يعرض لى كل ملفات ال html فى الفولدر الفرعى فى ال form2


RE: طلب تعديل على هذا الكود - LoveVb - 27-08-16

هل هذا ماتقصده؟
Form2.ListBox1.Items.AddRange(IO.Directory.GetFiles(TextBox1.Text & "\" & ComboBox1.Text & "\" & ComboBox2.Text, "*.html").Select(Function(a) IO.Path.GetFileName(a)).ToArray)
ضعه في زر العرض


RE: طلب تعديل على هذا الكود - yasob - 27-08-16

نعم التعديل على هذا الكود او كود اخر جديد يتتم العمليه زى ما وضحت سابقا


RE: طلب تعديل على هذا الكود - LoveVb - 27-08-16

إقتباس :هل هذا ماتقصده؟

Form2.ListBox1.Items.AddRange(IO.Directory.GetFiles(TextBox1.Text & "\" & ComboBox1.Text & "\" & ComboBox2.Text, "*.html").Select(Function(a) IO.Path.GetFileName(a)).ToArray)



RE: طلب تعديل على هذا الكود - yasob - 27-08-16

شكرا اخى الكريم على حسن التعاون