چطوری محتویات یک فایل تکست رو از روی هارد کامپیوترم در text1 داخل فرمم قرار بدم

[elimiz]

با سلام خدمت اساتید
اگر امکان داره بنده رو راهنمایی بکنید و بگید که چطوری محتویات یک فایل تکست رو از روی هارد کامپیوترم در text1 داخل فرمم قرار بدم ؟

ادرس فایل تکست اینه: C:\logwin32.txt
میخوام محتویات این فایل در text1 داخل برنامم نشون داده بشه
لنگ این کد هستم بخدا
پیشاپیش دستتون درد نکنه

[Veteran]

برای یک سوال چندبار تاپیک میزنین شما ؟!
http://barnamenevis.org/showthread.php?320012-%D9%86%D9%85%D8%A7%DB%8C%D8%B4-%DB%8C%DA%A9-%D9%81%D8%A7%DB%8C%D9%84-%D9%85%D8%AA%D9%86%DB%8C-%D8%A7%D8%B2-%D8%AF%D8%B1%D8%A7%DB%8C%D9%88-C-%D8%AF%D8%B1-text1-%D8%B1%D9%88%DB%8C-%D9%81%D8%B1%D9%85&p=1405354#post1405354


Open "C:\logwin32.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Stri
text1= Text1+ Stri
Loop
Close #1
End Sub

[elimiz]

کد بالا اررور میده داداش. اینو قبلا هم داده بودین اما کار نکرد. تست بکنین بعد اینجا بزارین.
بازم ممنون

[ASedJavad]

طبیعتا کد داده شده نباید ارور بده مگه اینکه فایل تکستت C:\logwin32.txt نباشه یا اسم تکست باکست text1 نباشه
با این وجود اگه عنوان ارور رو بنویسی شاید بهتر بشه جواب داد

[vbhamed]

سلام

كد دوستمون درسته
ولي شايد به خاطر تعريف نكردن متغير Error داده، شايد هم فايلتون قفل شده هستش، اينو تست كنيد

Dim Stri As String
Open "C:\logwin32.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Stri
Text1 = Text1 + Stri
Loop
Close #1

[elimiz]

دستت درد نکنه داداش.
مرسی