# Re: 请各位热心人仕或高手帮小第Debug一下。

Posted by Wesley on September 15, 1999 at 15:55:45:

In Reply to: 请各位热心人仕或高手帮小第Debug一下。 posted by ComBilLi on September 15, 1999 at 15:33:01:

: Option Explicit
: Property Get getfilelist() As String
: Dim allstring$, readline$ ,wordwrap$
: wordwrap$ = Chr$(13) & Chr$(10)
: Open CurDir & "\list" For Input As #1
: Do Until EOF(1)
: Line Input #1, readline$
: allstring$ = readline$ & wordwrap$ ==================>>>>>这里有问题，请到最后一行看问题详细情况。
: DoEvents
: Loop
: Close #1
: getfilelist = allstring$
: allstring$ = ""
: End Property

: 不知为何，allstring$ 总是只读得文件的最后一行，而不是整个一件。

问题出在这

Line Input #1, readline$
allstring$ = readline$ & wordwrap$ <-----每行资料并未被累加到allstring$中

Follow Ups:

- 明白了，我知要怎样做啦。(无内文) ComBilLi 16:27:21 9/15/99 (0)