Checking a String's last character

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?

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



Ren wrote:
>
> 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?

--

Dave Peterson

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

"Ren" <[email protected]> wrote in message
news:[email protected]...
>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?

On Wed, 2 Aug 2006 07:36:02 -0700, Ren <[email protected]> wrote:

>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

I'd watch out for UND paths, though:

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



Ron Rosenfeld wrote:
>
> On Wed, 2 Aug 2006 07:36:02 -0700, Ren <[email protected]> wrote:
>
> >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

er, UNC paths....

Darn fingers!

Dave Peterson wrote:
>
> I'd watch out for UND paths, though:
>
> Dim myPath As String
> myPath = "\\share\folderpath"
> myPath = Replace(myPath & "\", "\\", "\")
>
> Ron Rosenfeld wrote:
> >
> > On Wed, 2 Aug 2006 07:36:02 -0700, Ren <[email protected]> wrote:
> >
> > >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

--

Dave Peterson

On Wed, 02 Aug 2006 10:27:54 -0500, Dave Peterson <[email protected]>
wrote:

>er, UNC paths....
>
>Darn fingers!
>
>Dave Peterson wrote:
>>
>> I'd watch out for UND paths, though:
>>
>> Dim myPath As String
>> myPath = "\\share\folderpath"
>> myPath = Replace(myPath & "\", "\\", "\")
>>

Excellent point! and one which I overlooked.


--ron