Checking a String's last character

[Guest]

I want to get a folder path from a a cell and have a check function where the
function would check if the string's last character is "\"

So that if the String is "C:\folderpath" the string would return
"C:\folderpath\" and leave it as is if the String is "C:\folderpath\"

What VBA function would allow me to do so?

 

[Graham Whitehead]

You need to use the Right function, here is a short example

Dim strTest As String
Dim strExample As String

strTest = Range("E1").Value
strExample = Right(strTest, 1)

If strExample <> "\" Then
strTest = strTest & "\"
End If

 

[Dave Peterson]

dim myPath as string
mypath = "c:\folderpath"
if right(mypath,1) <> "\" then
mypath = mypath & "\"
end if

 

[Ron Rosenfeld]

I want to get a folder path from a a cell and have a check function where the
function would check if the string's last character is "\"

So that if the String is "C:\folderpath" the string would return
"C:\folderpath\" and leave it as is if the String is "C:\folderpath\"

What VBA function would allow me to do so?

Just another method:

path = "C:\folderpath"
Replace(path & "\", "\\", "\")



--ron

 

[Dave Peterson]

I'd watch out for UND paths, though:

Dim myPath As String
myPath = "\\share\folderpath"
myPath = Replace(myPath & "\", "\\", "\")

 

[Dave Peterson]

er, UNC paths....

Darn fingers!

I'd watch out for UND paths, though:

Dim myPath As String
myPath = "\\share\folderpath"
myPath = Replace(myPath & "\", "\\", "\")

 

[Ron Rosenfeld]

er, UNC paths....

Darn fingers!

Excellent point! and one which I overlooked.


--ron