Get the whole path before the last counterslash

RobiNew · #1 01-13-2024, 09:41 AM

I know how to get the last subfolder in a path (here below), but how do I get the whole path before the last counterslash? Thanks!

Code:

Sub BeforeCounterslash()
Dim StrText As String
StrText = Trim(Split("C:\Sub_1\Sub_2\Sub_3", "\")(3))
MsgBox StrText
End Sub

RobiNew · #2 01-13-2024, 10:06 AM

This one works OK, but is there a simpler method? Thanks!

Code:

Sub TestNew()
Dim StrPath As String, t As Long
StrPath = "C:\Sub_1\Sub_2\Sub_3"
If Right(StrPath, 1) = "\" Then StrPath = Left(StrPath, Len(StrPath) - 1)
t = InStrRev(StrPath, "\")
StrPath = Left(StrPath, t - 1)
MsgBox StrPath
End Sub

vivka · #3 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

RobiNew · #4 01-13-2024, 03:35 PM

Thanks a lot, Vivka! You are always the best!

vivka · #5 01-13-2024, 03:49 PM

Thank you, RobiNew, for your kind words! I'm not the best, I'm still learning. There are real gurus here. Besides, it may be a revelation to you, I've learned some new tricks from your codes, too. So, you are also a kind of my teacher.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
PDF default path	hernans	Word VBA	8	07-02-2018 06:06 PM
Critical path	bijukn1	Project	2	11-04-2016 10:31 AM
Error with UNC path	Troy R	Mail Merge	1	11-11-2015 09:06 AM
Change old path to new path (batch)	NobodysPerfect	Word VBA	2	08-14-2014 10:09 PM
Doc path	cinque8	Word	4	08-10-2012 06:57 PM