simple string parse help

[Pouncer]

hey guys i need to return the directory name without the last \ at the end..

e..g.

name = "C:\hello.txt\"

should give me

C:\hello.txt

i tried MsgBox Right(Text5.Text, CInt(Len(Text5.Text) - 1)) but it doesnt work for some strings like this

[Jmacp]

hey guys i need to return the directory name without the last \ at the end..

e..g.

name = "C:\hello.txt\"

should give me

C:\hello.txt

i tried MsgBox Right(Text5.Text, CInt(Len(Text5.Text) - 1)) but it doesnt work for some strings like this

Dim strName As String
    strName = "C:\hello.txt\"
    MsgBox Mid(strName, 1, InStrRev(strName, "\") - 1)

[lintz]

MsgBox Left$("C:\hello.txt\", (Len("C:\hello.txt\") - 1))

[Jmacp]

Whoops

Private Function ParseDir(ByVal strName As String) As String
 
    If Right$(strName, 1) = "\" Then
        ParseDir = Mid$(strName, 1, InStrRev(strName, "\") - 1)
    Else
        ParseDir = strName
    End If
    
End Function

[lintz]

Jmacp, there is no need to give strName the same info twice in your example

Dim strName As String
    strName = "C:\hello.txt\"  ' or text1.text
    If Right$(strName, 1) = "\" Then
        MsgBox Mid$(strName, 1, InStrRev(strName, "\") - 1)
    End If

EDIT: I see you changed your post

[yitzle]

Dim strName As String
    strName = "C:\hello.txt\"  ' or text1.text
    If Right$(strName, 1) = "\" Then
        MsgBox Mid$(strName, 1, InStrRev(strName, "\") - 1)
    End If

What's wrong with the left function??

Dim strName As String
    strName = "C:\hello.txt\"  ' or text1.text
    If Right(strName, 1) = "\" Then
        MsgBox Left(strName, Len(strName) - 1)
    End If

[lintz]

Nothing wrong with the left function

[Jmacp]

What's wrong with the left function??

Dim strName As String
    strName = "C:\hello.txt\"  ' or text1.text
    If Right(strName, 1) = "\" Then
        MsgBox Left(strName, Len(strName) - 1)
    End If

nothing, same difference.