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

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

(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

(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

"حفظ النص اللي بتكست بوكس 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) 

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