Get the whole path before the last counterslash

		Microsoft Office Forums > Microsoft Word > Word VBA
Get the whole path before the last counterslash

FAQ

Thread Tools

Display Modes

01-13-2024, 10:06 AM

RobiNew

Windows 10 Get the whole path before the last counterslash

Office 2016

Competent Performer

Join Date: Sep 2023

Posts: 208

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

« Previous Thread | Next Thread »

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

Other Forums: Access Forums

All times are GMT -7. The time now is 12:57 PM.