Last subfolder in a folder

[Theyman]

VBA code to find and loop last subfolder in a folder?

 

[KOKOSEK]

What do you mean by last? Last as name (A-Z), last by created date?

 

[JEC]

this is by creation date

Sub jec()
 Dim ar
 ar = Split(CreateObject("wscript.shell").exec("cmd /c Dir ""C:\Users\xxx\Downloads\"" /A:D /O:D /T:C /B").stdout.readall, vbCrLf)
 MsgBox ar(UBound(ar) - 1)
End Sub

If you want alphabetical you need

/A:D /O:N /B