[ابو روضة]

السلام عليكم اخوتى
اريد تعبئة الليست بوكس من ملف نصى موجود  داخل المشروع ليس من مسار بل داخل مجلد المشروع نفسه 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

[asemshahen5]

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\"

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

[حريف برمجة]

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