[الكاتب]

Sorry Kepord no arbic the code for Writer and Reader

paste Button1

إقتباس : Dim i As Integer
w = New IO.StreamWriter("c:\XX.txt")
For i = 0 To ListBox1.Items.Count - 1
w.WriteLine(ListBox1.Items.Item(i))
Next
w.Close()

paste Button2

إقتباس : r = New IO.StreamReader("c:\XX.txt")
While (r.Peek() > -1)
ListBox2.Items.Add(r.ReadLine)
End While
r.Close()

var in Public Class Form1

إقتباس : Dim w As IO.StreamWriter
Dim r As IO.StreamReader

c:\XX.txt