String beschneiden in VB6.0

[unimx]

Hi,

eine kleine Frage und zwar ich habe den string "C:\blabla\blabla\blabla\lalal.abc"

ich möchte nach dem letzten "\" abschneiden so das ich nur noch "C:\blabla\blabla\blabla\" in meinem Variable drin stehen habe.

ich hoffe jemand weiss rat.

grus unimx

[DevHB]

Hi,

so:

Dim s       As String, _

        sTmp    As String


    Dim nPos    As Integer


    s = "C:\blabla\blabla\blabla\lalal.abc"


    ' Position von "\" ermitteln,

    ' von hinten

    nPos = InStrRev(s, "\")


    ' ausdruck gefunden?

    If (nPos <> 0) Then

        sTmp = Left$(s, nPos)

    End If


    MsgBox sTmp

Ungetestet, sollte aber funktionieren.

[unimx]

hmm ja es klappt wunderbar, danke!