چرا این کد در ویندوز Seven 7 کار نمیکنه ؟ (خواندن محتویات فایل متنی از روی هارد)

[elimiz]

سلام دوستان
سورس زیر محتویات یک فایل متنی رو در text1 نمایش میده. اما در ویندوز Seven 7 کار نمیکنه.
اگر امکان داره یه راهنمایی بکنین یا یه نمونه سورس بزارین
لنگ این سورسم

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

[arash020]

سلام
این کد درسته و کار میکنه
اگه اون فایلی که به دستور معرفی کردین وجود داشته باشه.
اگه نباشه پیغام "not find file" خواهد داد .
همین
کد با فایلی که وجود داشته باشه درست کار میکنه ...

[vbhamed]

سلام

ممكنه دسترسي يوزر ويندوز كافي نباشه
تو Control Panel قسمت User بريد و Change Uset accout Control رو بزنيد و درجه رو تا آخر پايين بياريد و بعد Ok و ريست، بعد تست كنيد