Foro de elhacker.net

estuve pensando pero no se como hacerlo... es algo muy sencillo pero no puedo hacerlo! :S

quiero dividir por ejemplo esta cadena:


y q me quede asi:


pense en algun split q me divida por los "\" y elimine el ultimo y luego los junte y entre medio ponga de nuevo "\"
pero no se como saber cual es el ultimo...

Function fncDir(strDir As String)
Dim i, strVar As String
sptDir = Split(strDir, "\")

For i = 0 To UBound(sptDir) - 1
    strVar = strVar & sptDir(i) & "\"
Next

fncDir = strVar
End Function

muchas gracias... lo probe y me funciona muy bien ;)