10-04-16, 06:51 PM
حفظ ملفات
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)
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
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