سلام دوست گرامی

این هم یک روش دیگه که برای استفاده از اون شما باید از منوی Project و گزینه Reference، ارجاع Microsoft Scripting Runtime را انتخاب کنید تا بتوانید از آن استفاده کنید.

برای اجرای مثال زیر به یک جعبه متن با خاصیت چند خطی فعال نیاز خواهید داشت.

    Dim x As New FileSystemObject

    Dim y As TextStream

    Set y = x.OpenTextFile("E:\amar.txt", ForReading)

    Text1.Text = y.ReadAll


با احترام- خدانگهدار