Title Bar Help

[mccullom]

I'm creating a notepad. When you save or open a text file its supposed to display the name of the file in the titlebar of the form. However, the way I have it coded, it displays the entire path of the file too. How do I get it to display just the name? Thanks.

Sub Titlebar()
Me.Text = CStr(documentName) & " - NotePad"
End Sub

[<ABX]

Try This

Add this to the form or change Private to Public and put it in a module

Private Function GetFileName(ByVal strPath As String) As String
        Dim strTmp() As String = Split(strPath, "\")
        Return strTmp(strTmp.GetUpperBound(0))
    End Function

Then use ur code like this:

Sub Titlebar()
Me.Text = getFileName(CStr(documentName)) & " - NotePad"
End Sub

[mccullom]

Thanks! It worked great!

[hellswraith]

This functionality is built into the FileInfo object:

Dim fi As System.IO.FileInfo = New System.IO.FileInfo("C:\AFolder\AnotherFolder\MyTextFile.txt")
Me.Text = fi.Name & " - NotePad"

[Kasracer]

Originally posted by hellswraith
This functionality is built into the FileInfo object:

Dim fi As System.IO.FileInfo = New System.IO.FileInfo("C:\AFolder\AnotherFolder\MyTextFile.txt")
Me.Text = fi.Name & " - NotePad"

Yeah this is what I used.

Better than sticking in a loop.