14-09-13, 10:18 PM
تفضل أخي هذا هو الكود لكن يجب إضافة أداة Common Dialog
ثم ضع هذا الكود في حدث الضغط على الزر
commonDialog1.Filter = " Text File|*.txt"
commonDialog1[/code].ShowSave
If commonDialog1.FileName <> "" Then
AppPath = commonDialog1.FileName
ValText = Text1
Open AppPath For Append As #1
Print #1, ValText
Close #1
هذا بالنسبة للملفات النصية بس انا مش فاهم عبارة
"اي ملف اريده"
يا ريت توضح
ثم ضع هذا الكود في حدث الضغط على الزر
commonDialog1.Filter = " Text File|*.txt"
commonDialog1[/code].ShowSave
If commonDialog1.FileName <> "" Then
AppPath = commonDialog1.FileName
ValText = Text1
Open AppPath For Append As #1
Print #1, ValText
Close #1
هذا بالنسبة للملفات النصية بس انا مش فاهم عبارة
"اي ملف اريده"
يا ريت توضح

