Read txt file

[Aurax]

Hi all

How i can read txt file and put it into textbox?
Please help me. Any help will be appreciated.

Thank you

[Jx_Man]

Try something like this :

    Function FileText(ByVal filename As String) As String
        Dim handle As Integer

           ' ensure that the file exists
        If Len(Dir$(filename)) = 0 Then
            Err.Raise 53  ' File not found
        End If

           ' open in binary mode
        handle = FreeFile
        Open filename$ For Binary As #handle
           ' read the string and close the file
        FileText = Space$(LOF(handle))
        Get #handle, , FileText
        Close #handle
    End Function

Private Sub Command1_Click()
    Text1.Text = FileText("D:\image.txt")
End Sub

[Jx_Man]

You can also read this article.

[Aurax]

That's awesome.
Thank you jx_man