converting spaces to "_" , but only for the filename

[maylortaylor]

I'm trying to have it so that my textbox (which gets its input from a SaveFileDialog) will replace any spaces with an underscore.

So far, this is the code i have.

Private Sub boxDestin_TextChanged(sender As Object, e As EventArgs) Handles boxDestin.TextChanged

        Dim removespaces As String
        removespaces = boxDestin.Text

        boxDestin.Text = Replace(removespaces, " ", "_")
end sub

But this changes every space in the file location to an underscore. The problem being that not all my directories have underscores...

So for example, "C:\Users\J oe Smith\file name.txt"
will become "C:\Users\Joe_S mith\file_name. txt"

but you can obviously see the issues coming from that.

Any suggestions?

[Rabbit]

You can use the LastIndexOf method to find the last occurrence of the "\" character. Substring out to the right of that character and do your replace and then concatenate it with the substring to the left of that character.

[PsychoCoder]

To avoid a lot of string manipulation (I do whenever possible) you can use GetFileName() and GetDirectoryNam e(), something like this:

Dim file As String = saveFileDialog1.FileName
Dim replaced As String = Path.GetFileName(file).Replace(" ", "_")

TextBox1.Text = Path.GetDirectoryName(file) & "\" & replaced

[maylortaylor]

Thank you psychoCoder. Your code worked perfectly well.