منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم اخوتى
اريد تعبئة الليست بوكس من ملف نصى موجود داخل المشروع ليس من مسار بل داخل مجلد المشروع نفسه Debug
وجربت هذا ونفع لكن انا اريده من مجلد المشروع

كود :

Dim r As IO.StreamReader

        r = New IO.StreamReader("c:\" & TextBox2.Text & ".txt")

        While (r.Peek() > -1)

            ListBox1.Items.Add(r.ReadLine)

        End While

        r.Close()

وغيرته لهذا ولم يفلح

كود :

 Dim r As IO.StreamReader

        r = New IO.StreamReader(Application.StartupPath & TextBox2.Text & ".txt")

        While (r.Peek() > -1)

            ListBox1.Items.Add(r.ReadLine)

        End While

        r.Close()

وطبعا اريده بدون فتح الديالوج بأداه OpenFileDialog

PHP كود :

r = New IO.StreamReader(Application.StartupPath & "\" & TextBox2.Text & ".txt") 

(01-02-19, 10:34 PM)asemshahen5 كتب : [ -> ]
PHP كود :

r = New IO.StreamReader(Application.StartupPath & "\" & TextBox2.Text & ".txt")

جزاك الله كل خير أخى الكريم فعلا نجحت

لكن ممكن اعرف ما فائدة هذه "\"

(01-02-19, 10:44 PM)ابو روضة كتب : [ -> ]
(01-02-19, 10:34 PM)asemshahen5 كتب : [ -> ]
PHP كود :

r = New IO.StreamReader(Application.StartupPath & "\" & TextBox2.Text & ".txt")

جزاك الله كل خير أخى الكريم فعلا نجحت

لكن ممكن اعرف ما فائدة هذه "\"

"\"
داخل مجلد الموجود في المسار .

لنفرض يوجد مجلد باسم Images
داخله مجلد باسم Image1
ونريد الوصول لملف داخل المجلد Image1

يكون المسار هكذا :

كود :

Application.StartupPath & "\Images\Image1\"

(02-02-19, 03:01 AM)حريف برمجة كتب : [ -> ]
(01-02-19, 10:44 PM)ابو روضة كتب : [ -> ]
(01-02-19, 10:34 PM)asemshahen5 كتب : [ -> ]
PHP كود :

r = New IO.StreamReader(Application.StartupPath & "\" & TextBox2.Text & ".txt")

جزاك الله كل خير أخى الكريم فعلا نجحت

لكن ممكن اعرف ما فائدة هذه "\"

"\"
داخل مجلد الموجود في المسار .

لنفرض يوجد مجلد باسم Images
داخله مجلد باسم Image1
ونريد الوصول لملف داخل المجلد Image1

يكون المسار هكذا :

كود :

Application.StartupPath & "\Images\Image1\"

جزاك الله كل الخير اخى وصلت المعلومة الحمدلله

بالتوفيق للجميع