تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] مثال لايقاف اي مشغل لاي ملف لحذف الملف سعود 2 1,051 09-10-13, 03:59 AM
آخر رد: العزابي

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


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