Openen zonder Openfiledialog

[johannetje2]

Hey!

Hoe kan ik een TXT bestand in een richtextbox openen ZONDER openfiledialog?

 

[The Mighty Atom]

        Dim OpenFile As New OpenFileDialog

        With OpenFile
            .Title = "Titel"
            .Filter = "*.txt|txt"
        End With

        If OpenFile.ShowDialog = DialogResult.OK Then

            'code voor het invullen van de RichTextBox

        End If

 

[johannetje2]

Ik heb nu dit:

Dim OpenFile As New OpenFileDialog

        With OpenFile
            OpenFile.FileName = "C:\Users\Johan Wenting\Documents\Leger.txt"
            .Title = "Titel"
            .Filter = "*.txt|txt"
        End With

        If OpenFile.ShowDialog = DialogResult.OK Then

            Try
                Dim Read As New System.IO.StreamReader(OpenFile.FileName)
                RichTextBox1.Text = Read.ReadToEnd
                Read.Close()
            Catch ex As Exception

            End Try

        End If

Maar hij moet meteen weer weg gaan! Hoe maak ik dat?

 

[The Mighty Atom]

Dus je wilt helemaal geen dialogbox zien? In dat geval is een StreamReader alles wat je nodig hebt:

Try
            Dim ReadFile As New StreamReader("C:\file.txt") 'Vetgeet dit niet aan te passen
            RichTextBox1.Text = ReadFile.ReadToEnd
            ReadFile.Close()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try

Ook even Imports System.IO op regel 1 plaatsen, anders zegt tie dat StreamReader niet gedefineerd is.

 

[johannetje2]

Dus je wilt helemaal geen dialogbox zien? In dat geval is een StreamReader alles wat je nodig hebt:

Try
            Dim ReadFile As New StreamReader("C:\file.txt") 'Vetgeet dit niet aan te passen
            RichTextBox1.Text = ReadFile.ReadToEnd
            ReadFile.Close()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try

Ook even Imports System.IO op regel 1 plaatsen, anders zegt tie dat StreamReader niet gedefineerd is.

BEDANKT!! :thumb::thumb::thumb::thumb::thumb::thumb::shocked::shocked::shocked::shocked::shocked::thumb::thumb::thumb::thumb::thumb: