انشاء ملف نصى وتخرين بيانات من الفورم علية بصورة الية

برجاء البحث قبل السؤال.

Dim FF As Integer

FF = FreeFile()

Open "C:\MyLog.log" For Output As #FF
	Print #FF, "Hi , this is the first line of my log file"
	Print #FF, "And This is the second one !"
Close #FF

عفوا ارجو توضيح الفكرة بحيث تكون القرأة من الفورم وليس نص اقموم بادخالة

اقتباس

ارغب فى معرفة الطريقة او الدالة التى يمكن ان احفظ بها هذة البيانات من الفورم الى ملف نصى بصورة تلقائية على ان احدد مسار الملف والاسم داخل الكود

ماذا تقصد من الفورم او ليس فيها صناديق نص

ام تقصد شي أخر أوضح...

عفوا سقطت سهوا اقصد مربع نص داخل الفورم

البرنامج يقوم بجمع بيانات من النظام ووضعها داخل مربع النص

الكود التالي

Private Sub Command1_Click()
Dim filenum
filenum = FreeFile
Open "c:\nour.txt" For Output As filenum
Write #filenum, Text1.Text
Close filenum
End Sub

أو تستطيع استخدام كود الاخ msayed2004 بعد التعديل عليه

 

Private Sub Command1_Click()
Dim FF As Integer

FF = FreeFile()

Open "C:\MyLog.log" For Output As #FF
	Print #FF, Text1.Text
Close #FF
End Sub

الف شكر الاخ المزمجر بس عندى سؤال ؟؟؟؟؟؟؟؟؟؟؟؟

بخصوص التسمية للملف اذا اعطيت الملف اسم مثلا my log.text وعملت shutdownو شغلت الجهاز للمرة الثانية سيقوم البرنامج بأنشاء ملف بنفس الاسم وبالتاكيد سيحذف الملف القديم كيف اتفادى هذة المشكلة مثلا يكون اسم الملف mylog+date and time.text بحيث يسجل البرنامج الملف فى نفس المسار ولكن باسم جديد يعتمد على قيمة متغيرة مثل التاريخ او الزمن .

Append بدل Output

الاخ المزمجر والاخ msaye d2004 اتنو اروع من الروعة شكرا جزيلا

جربت الكود بس بيشتغل مع زر امر وانا يسأل من عملية الية على ان تتم القرأة من list وليس من text