Append a backslash "\" to the end of a text string

[jase71ds]

In cell A1, I have a file path (simple text string) and I need to append (via macro, not via formula) a backslash. The text file will vary in length.

Example 1
This:.......... "C:\rouk1\stators"
Needs to be: "C:\rouk1\stators\"

Example 2
This:........... "D:\thrstr\engr\nozzle\flak\trim"
Needs to be: "D:\thrstr\engr\nozzle\flak\trim\"

Should be simple, but I'm lost. Would appreciate any help.
Thanks.
Jase.

 

[alansidman]

Dim myPath as string
myPath = [COLOR=#333333]"D:\thrstr\engr\nozzle\flak\trim"
myPath = [/COLOR][COLOR=#333333]myPath & "\"[/COLOR]

 

[MARK858]

Assuming you are just amending the cell and you don't have the quote marks in the cell.

Range("A1") = Range("A1") & "\"

 

[Teeroy]

I suggest you also check for an existing trailing "\" before adding one. e.g.

If right(Range("A2").value,1)<>"\" then
    Range("A2").value = Range("A2").value & "\"
End if

BTW it sounds like you're a bit of a turbojet nut

 

[jase71ds]

Thanks guys, all of you, very much!
And great advice, Teeroy, about first checking to see if there already is a backslash.