Opening File Rich Text Box (VB.NET)

Question

I'm working on a Document Writer and I'm including the feature of tabs, and I'm having trouble opening the files into the multiple tabs
I'm using RichTextboxes (I'm not sure if that affects anything)

Here is the code:

 Public Sub openFile()

    Dim ofd As New OpenFileDialog

    ofd.Filter = fileFilter

    ofd.FileName = ""

    Select Case ofd.ShowDialog()

        Case DialogResult.OK

        loadFile(Path.GetFileName(ofd.FileName))

    End Select

End Sub



Public Sub loadFile(ByVal file As String)

   Try

    fileName = file

    setText(IO.File.ReadAllText(file))

   Catch ex As Exception

            MsgBox(ex.Message)

   End Try

End Sub



Public Sub setText(ByVal value As String)

    Dim t As RichTextBox = tabH.SelectedTab.Controls.OfType(Of RichTextBox)().First()

    t.Text = value

End Sub

The try is catching the problem and is saying that it can't find the file. But it's searching for the file in the directory of the .exe

Does anybody know how to fix this?

Answer 1

This happens because you are only passing the file name (instead of the full path) to your loadFile() method.

The Path.GetFileName() method returns only the file name and extension part of a path. For example, if you would call:

Path.GetFileName("C:\Users\John\Hello World.txt")

the method would return:

Hello World.txt

So remove that call from your code and you should be good to go:

Case DialogResult.OK
    loadFile(ofd.FileName)

Opening File Rich Text Box (VB.NET)

Sign up