Microsoft Office Forums - View Single Post - Get the whole path before the last counterslash

vivka · 01-13-2024, 11:30 AM

Hi, RobiNew! I would use a simplified variant of your code without any Ifs:

Code:

Sub BeforeCounterslash()

Dim StrPath As String
StrPath = "C:\Sub_1\Sub_2\Sub_3"

  StrPath = left(StrPath, InStrRev(StrPath, "\") - 1)
MsgBox StrPath
End Sub