※ 引述《CuckooBoy (書仔)》之銘言：
: 照書demo打,執行說.....a$ 找不到方法或成員??
: 哪邊有錯呢?
: 高手可以推一把嗎?>"<
: Private Sub Form_Load()
: Open App.Path & "\Backup.ini" For Output As #1
: Line Input #1, a$
: Title.txt = a$
: Close #1
: End Sub
Dim f as Integer,sLine As String
f=FreeFile '取得一個可用的檔案代碼
Open App.Path & \"Backup.ini" For Input As #f '用Input方式開檔
While Not EOF(f) '如果還沒到檔尾
Line Input #f,sLine '讀取一行
'做你要做的事
Wend
Close#f '關檔
如果只要讀一行
If Not EOF(f) Then Line Input #f,sLine
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 221.169.187.111