cropping directory name 1

[M626]

I have a variable that i am getting from a dir box. I would like to crop the variable so it's only the last folder listed.

Example:
Var1 = "C:\Temp\test1\aol"

I would like to make

Var1 = "aol"

 

[Swi]

Here are two ways of doing it:

Option Explicit
Dim Var1 As String
Dim aryTemp() As String

Private Sub Command1_Click()
Var1 = "C:\Temp\test1\aol"
MsgBox Mid$(Var1, (InStrRev(Var1, "\") + 1))
Erase aryTemp
aryTemp = Split(Var1, "\")
MsgBox aryTemp(UBound(aryTemp))
End Sub

Swi

 

[bigtimmin]

Split the string into an array by the '\' then set Var1 to the upper bound of the array. However, if the string ends with '\' then you will need to test for that.

Maybe this world is another planet’s Hell.
Aldous Huxley

 

[strongm]

CreateObject("Scripting.FileSystemObject").GetBaseName(var1)

 

[Swi]

Nice one strongm. You love the one liners.

Swi

 

[strongm]