تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حفظ الملف
#1
Photo 
حفظ ملفات
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
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم