input past end of file [بایگانی]

mazy12

شنبه 31 فروردین 1387, 12:47 عصر

سلام دوستان ،

من با استفاده از file system object یه فایل رو باز کردم و میخوام اطلاعاتشو تویه استرینگ بریزم(توسط readall) که این error رو میگیرمinput past end of file .

Set f = fso.OpenTextFile(file(k), ForReading, False, TristateFalse)
sText = f.ReadAll

file(k) آدرس فایل مورد نظر توش ذخیره شده.

Mbt925

یک شنبه 01 اردیبهشت 1387, 11:11 صبح

Set f = fso.OpenTextFile(file(k), ForReading, False, TristateFalse)
if f.AtEndOfStream = False Then sText = f.ReadAll