10-04-16, 06:39 PM
التعامل مع الملفات
فتح ملفات
open1.Multiselect = False
open1.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
If open1.ShowDialog = Windows.Forms.DialogResult.OK Then
Me.Text = open1.SafeFileName
dd = open1.FileName
Dim s As New StreamReader(open1.FileName)
Dim Y As String
Y = s.ReadToEnd
Ri1.Text = Y
s.Close()
End If
فتح ملفات
open1.Multiselect = False
open1.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
If open1.ShowDialog = Windows.Forms.DialogResult.OK Then
Me.Text = open1.SafeFileName
dd = open1.FileName
Dim s As New StreamReader(open1.FileName)
Dim Y As String
Y = s.ReadToEnd
Ri1.Text = Y
s.Close()
End If