حفظ الملف - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188) +--- الموضوع : حفظ الملف (/showthread.php?tid=15434) |
حفظ الملف - ghaner joseph - 10-04-16 حفظ ملفات
If rr <> "" Then sev1.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*" 'sev1.Filter = "Compreesed Files (*.txt)" 'If sev1.ShowDialog = Windows.Forms.DialogResult.OK Then Dim s As New StreamWriter(sev1.FileName, True) s.WriteLine(Ri1.Text) 's.WriteLine(TextBox1.Text) s.Close() rr = sev1.FileName ElseIf dd <> "" Then sev1.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*" 'sev1.Filter = "Compreesed Files (*.txt)" 'If sev1.ShowDialog = Windows.Forms.DialogResult.OK Then Dim s As New StreamWriter(dd, True) s.WriteLine(Ri1.Text) 's.WriteLine(TextBox1.Text)
s.Close() rr = sev1.FileName Else sev1.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*" 'sev1.Filter = "Compreesed Files (*.txt)" 'If sev1.ShowDialog = Windows.Forms.DialogResult.OK Then If sev1.ShowDialog = Windows.Forms.DialogResult.OK Then Dim s As New StreamWriter(sev1.FileName) s.WriteLine(Ri1.Text) 's.WriteLine(TextBox1.Text) s.Close() rr = sev1.FileName End If End If |