Declaring a variable using part of a filepath name

[branston]

Hi

I hope this is an easy question for someone. I am pointing a variable to the "end" part of another filepath ie. the last sub folder name. My filepaths can change and because I am using 'P1' elsewhere in my code I'd rather not change P1 each time. I need P1 to be 'relative'



Dim dA$, P1, strDir$, strDir2$

dA = "C:\temp\Users\Alan\Section2Note1Appendix45\"
P1 = "Section2Note1Appendix45" ???????? (need help here)

strDir = Dir(dA) ?????????
strDir2 = Right(strDir, 10) ???????? (need help here)



P1 needs to be the name of the last folder in dA each time. I need a bit of help with strDir2 above / or a better way. Many thanks in advance.

[JKwan]

something like this:


Sub test()
Dim dA$, P1, strDir$, strDir2$
Dim temp

dA = "C:\temp\Users\Alan\Section2Note1Appendix45\"

temp = Split(dA, "\")
P1 = temp(UBound(temp) - 1)
MsgBox P1
End Sub

[Paul_Hossler]

Maybe


Option Explicit


Sub Test()
Dim dA$, P1, strDir$, strDir2$
Dim v As Variant


dA = "C:\temp\Users\Alan\Section2Note1Appendix45\"
v = Split(dA, Application.PathSeparator)

If Len(v(UBound(v))) = 0 Then
P1 = v(UBound(v) - 1)
Else
P1 = v(UBound(v))
End If

MsgBox P1


'
'P1 = "Section2Note1Appendix45" ???????? (need help here)
'
'strDir = Dir(dA)
'strDir2 = Right(strDir, 10)
End Sub

[branston]

Thanks guys - will try both methods out.