How can i load text from a .TXT file into a textbox?
Code: Private Sub cmdLoadText_Click() Dim sText As String Dim iFile As Integer iFile = FreeFile Open "C:\SomeTextFile.txt" For Input As iFile sText = Input(LOF(iFile), iFile) Close iFile Text1 = sText End Sub ------------------ Aaron Young Analyst Programmer [email protected] [email protected]
Private Sub cmdLoadText_Click() Dim sText As String Dim iFile As Integer iFile = FreeFile Open "C:\SomeTextFile.txt" For Input As iFile sText = Input(LOF(iFile), iFile) Close iFile Text1 = sText End Sub
Forum Rules