مشکل در خواندن یا باز کردن فایل

[www.pc3enter.tk]

سلام خسته نباشید
من با استفاده از این کد می توانم یک فایل را باز کنم
On Error Resume Next
Open "c:\a.txt" For Input As 1
Do Until EOF(1) = True
Line Input #1, zz
Text1.Text = zz
DoEvents
Loop
Close #zz

اما وقتی مثلا می خواهم فایل های a.txt / b.txt /c.txt
باز کنم نمیشه
یعنی چند تا تکس باکس داریم و بعدش هم این فایل ها را می خواهم داخل داخل تکس باکس باز کنه

[محسن واژدی]

سلام علیکم
اگر خطا میده در صورت امکان متن خطا هم ذکر کنید
همینطور اگر محتویات فایل متنی بیش از یک خط است دستور Text1.Text = zz را به Text1.Text = Text1.Text & zz تغییر بدین

موفق باشید

[zmirsafi]

سلام
خسته نباشید
من بااستفاده از کدی که دوستمون گفتن یه فایل متنی که دارای دو تا ستون هستش و هرستونش حدود 5000 تا داده داره رو میخاستم بخونم که هرکار میکنم این کد خطا میده.ممنون میشم اگر راهنماییم کنید
ودیگه اینکه امکانش هست بتونم داده های فایل اکسل در کدنویسی استفاده کنم؟
اگر امکانش هست به چه شکل.ممنونم از کمکتون

[m.4.r.m]

میشه واضح بیان کنی منظورتو داخل داخل یعنی چی ؟

[miladatashin]

سلام خسته نباشید
من با استفاده از این کد می توانم یک فایل را باز کنم
On Error Resume Next
Open "c:\a.txt" For Input As 1
Do Until EOF(1) = True
Line Input #1, zz
Text1.Text = zz
DoEvents
Loop
Close #zz

اما وقتی مثلا می خواهم فایل های a.txt / b.txt /c.txt
باز کنم نمیشه
یعنی چند تا تکس باکس داریم و بعدش هم این فایل ها را می خواهم داخل داخل تکس باکس باز کنه

Close #zz ؟!!! این خط اشتباه هست (یک توصیه تو پروژه هاتون on error رو تا قبل از نهایی شدن پروژه به کد اضافه نکنید تا متوجه خطا های برنامه یشید)