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

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

ممكن مساعده من اخواتي ومعلميني الكرام بخصوص الملفات - اليوم السابع - 17-08-20

عندي بالفورم 2 بوتن و2 تيكست بوكس واحد فارغ والثاني به كلمه OK اريد عند الضغط علي بوتن 1 ينشأ ملف في فولد الPictures به النص الموجود في تكست بوكس 1
وعند الضغط علي بوتن يظهر النص الذي انشأ في فولدر Pictures في تكست بوكس 2 
وشكرا جزيلا لكم

RE: ممكن مساعده من اخواتي ومعلميني الكرام بخصوص الملفات - بلدي - 17-08-20

(17-08-20, 11:06 AM)اليوم السابع كتب : عندي بالفورم 2 بوتن و2 تيكست بوكس واحد فارغ والثاني به كلمه OK اريد عند الضغط علي بوتن 1 ينشأ ملف في فولد الPictures به النص الموجود في تكست بوكس 1
وعند الضغط علي بوتن يظهر النص الذي انشأ في فولدر Pictures في تكست بوكس 2 
وشكرا جزيلا لكم

البوتون الاول فهمته انك تريد انشاء مجلد في فولد الPictures ويكون بالاسم الموجود  تكست بوكس 1
PHP كود :
Dim pictures = Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)
Dim d = pictures & "\" & TextBox1.Text
If Not IO.Directory.Exists(d) Then IO.Directory.CreateDirectory(d) 

البونون الثاني لم افهمه
يمكن تقصد المسار الذي تم انشاءه في البوتون الاول تجده في المتغير d في الكود السابق
PHP كود :
TextBox2.Text = d 
ولا ادري ما علاقه كلمه OK

RE: ممكن مساعده من اخواتي ومعلميني الكرام بخصوص الملفات - اليوم السابع - 17-08-20

(17-08-20, 12:10 PM)بلدي كتب :
(17-08-20, 11:06 AM)اليوم السابع كتب : عندي بالفورم 2 بوتن و2 تيكست بوكس واحد فارغ والثاني به كلمه OK اريد عند الضغط علي بوتن 1 ينشأ ملف في فولد الPictures به النص الموجود في تكست بوكس 1
وعند الضغط علي بوتن يظهر النص الذي انشأ في فولدر Pictures في تكست بوكس 2 
وشكرا جزيلا لكم

البوتون الاول فهمته انك تريد انشاء مجلد في فولد الPictures ويكون بالاسم الموجود  تكست بوكس 1
PHP كود :
Dim pictures = Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)
Dim d = pictures & "\" & TextBox1.Text
If Not IO.Directory.Exists(d) Then IO.Directory.CreateDirectory(d) 

البونون الثاني لم افهمه
يمكن تقصد المسار الذي تم انشاءه في البوتون الاول تجده في المتغير d في الكود السابق
PHP كود :
TextBox2.Text = d 
ولا ادري ما علاقه كلمه OK
شكرا لك اخي الكريم التوضيح اريد في البوتن الاول حفظ النص اللي بتكست بوكس 1 في ملف نصي في فولدر الPictures بأي اسم 
والبوتن الثاني اريد عرض الملف النصي التي تم حفظه في فولدر الPictures  في تكست بوكس 2

RE: ممكن مساعده من اخواتي ومعلميني الكرام بخصوص الملفات - بلدي - 17-08-20

"حفظ النص اللي بتكست بوكس 1 في ملف نصي في فولدر الPictures بأي اسم"
PHP كود :
Dim filename = Environment.GetFolderPath(Environment.SpecialFolder.MyPictures) & "\\" & "anyname.txt"
IO.File.WriteAllText(filename, TextBox1.Text) 

"عرض الملف النصي التي تم حفظه في فولدر الPictures  في تكست بوكس 2"
PHP كود :
Dim filename = Environment.GetFolderPath(Environment.SpecialFolder.MyPictures) & "\\" & "anyname.txt"
TextBox2.Text = IO.File.ReadAllText(filename) 


RE: ممكن مساعده من اخواتي ومعلميني الكرام بخصوص الملفات - اليوم السابع - 17-08-20

الف مليون شكر لك يا كبير تسلم ايدك