[dubai.eig]

(19-06-18, 05:47 PM)elgokr كتب :

تفضل اخى dubai.eig

طريق بطريقة بسيطة

كود :

Dim lines() As String = IO.File.ReadAllLines("D:\file.txt")
       For ii As Integer = 0 To lines.Length - 1
           TextBox1.Text += lines(ii) & IIf(ii < lines.Length - 1, vbCrLf, "")
       Next

تحياتى لك

وتمنياتى لك التوفيق

تسلم استاذي الكريم

المشكله ان الملف في موقعي وليس في الجهاز