SHowing a Text File in a Text Box
OK what am I doing wrong? I just want to pull a textfile into memory and then display it in the textbox for editing of my form. Thank you in advance:
Option Explicit
Private Sub Command1_Click()
Dim strTextFile As String
Dim strTextKine As String
Dim strFilePath As String
Open "c:\temp.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, strTextFile
strTextFile = strTextFile & strTextLine & vbCrLf
Loop
Close #1
Text1.Text = strTextFile
End Sub
Timothy H. Schilbach
Alpha Omega Design Inc.
[email protected]
Re: SHowing a Text File in a Text Box
Line input #1, strTextFile
' should read
Line input #1, strTextLine
' also Check your Dims. one is TextKine I think you meant TextLine.
John G