| スポンサードリンク |
Option Compare Database
Option Explicit
Private Sub ExTextRead()
Dim fno As Integer
Dim s1 As String
fno = FreeFile
Open "c:\test.txt" For Input As fno
Do Until EOF(fno)
Line Input #fno, s1
Me!リスト1.AddItem s1
Loop
Close fno
End Sub
Private Sub コマンド0_Click()
ExTextRead
End Sub
［実行結果］
テキストファイルへ書き込みボタンをクリックすると、 ExTextWriteを実行します。
