VB Code:
Dim text As String Private Sub Command1_Click() Open App.Path & "\filespec.txt" For Input As #1 Do Until EOF(1) Input #1, text Text1.text = Text1.text & text Loop Close #1 End Sub
|
Results 1 to 4 of 4
Threaded View
|
Click Here to Expand Forum to Full Width |