Get text after last "\" in file path string

[micropathic]

How can I get the text to the right of the last backslash ("\") in a file name.

 

For instance

 

 

I would want to get the "test.txt" from the string "C:\Program Files\My App\My Dir\My Dir2\test.txt"

 

or "test2.txt" from the string "C:\Program Files\My App\My Dir\test2.txt"

 

TIA

[mutant]

If you do it for files only, the beauty of it is that you don't have to do it manually :).

You can use the shared method of the IO.Path class, GetFileName.

Dim path as string = "C:\some folder\somefile.txt"
Dim filename As String = SYstem.IO.Path.GetFileName(path)

[micropathic]

Actually, I need a way to do it manually because I am working with a windows ce device and am getting paths from it like "\storage card\directory\file.txt" and am eventually going to compare the file with a corresponding file from the pc like "c:\blah\whatever\file.txt".

 

What I am doing is loading the value of a directory from the pc and a directory from the windows ce device into their own listboxes and plan to write some code that compares the contents of the two list boxes. But, before I can start comparing them, I need the contents of the listboxes to have a similar naming convention. In this case just the file and extension is what I'm planning on using.

 

I've messed around with it using the instr() function, but just can't get it right. Do you know of a way to do this manually?

 

Thanks for your help!

[mutant]

Something like this should help you (don't have time to test it):

'Create some path
Dim path As String = "C:\some folder\some file.txt"
'Get the index of the last slash, and add 1 so the slash won't be included in the string
dim filenamestart As Integer = path.LastIndexOf("\") + 1
'Take a part of the string which starts at the index we got earlier
'and set the length to the length of the string - the index we got eariler
'so the operation doesn't error and you get the whole name
Dim filename As String = path.SubString(filenamestart, path.Length - filenamestart)

[dynamic_sysop]

you could also do this as an alternative ...

       Dim length As Integer = "C:\some folder\some file.txt".Split("\").GetUpperBound(0) '/// the index of the last \
       Dim path As String = "C:\some folder\some file.txt".Split("\")(length)

       MessageBox.Show(path)

[micropathic]

Thank you both for your help, I got it working now!

 

Thanks