# 请各位热心人仕或高手帮小第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$ 总是只读得文件的最后一行，而不是整个一件。

Follow Ups:

- Re: 请各位热心人仕或高手帮小第Debug一下。 Wesley 15:55:45 9/15/99 (1)
  - 明白了，我知要怎样做啦。(无内文) ComBilLi 16:27:21 9/15/99 (0)