Retrieve Folder Name of Last Folder in Directory - vba

Question

I am working on automating the saving procedure of our purchase orders that we do through an Excel workbook. Instead of the user having to copy the template into the correct directory and renaming it with the correct order number that’s next in the sequence along with the date (for e.g. the previous order was order number SJ-K1880 placed on the 7th July 2016 with filename KO_SJ-K1880_070716, so the next order number would be SJ-K1881 placed on the 11th of July 2016 with filename KO_SJ-K1881_110716), the user only needs to click a Save button and it will save the workbook in the correct directory under the right filename automatically following the sequence. Here’s an example of the full directory of one such file:
C:\Users\User\Desktop\Kyocera Order Doc\
Kyocera Orders\Orders 2016\07 July 2016\
KO SJ-K1880 070716\KO_SJ-K1880_070716.xlsm
Using the current date I have managed to check the existence of the directory up until 07 July 2016 and create it if it doesn’t exist. My problem comes in finding the last folder from that directory (which is KO SJ-K1880 070716 in this example) and using it to determine what the next order number is going to be.

Answer 1

This seems to give you what you want but it relies on an ascending sort of the folder names.
Option Explicit
Sub main()
Dim fldr As String
fldr = Environ("USERPROFILE") & _
"\Desktop\Kyocera Order Doc\Kyocera Orders\Orders 2016\07 July 2016"
Debug.Print mostRecentFolderNdx(fldr)
End Sub
Function mostRecentFolderNdx(base As String)
Dim f As String, lstndx As String
f = Dir(base & "\*", vbDirectory)
Do While CBool(Len(f))
If Not CBool(InStr(1, f, Chr(46))) Then
lstndx = Split(f, Chr(32))(UBound(Split(f, Chr(32))))
End If
f = Dir
Loop
mostRecentFolderNdx = lstndx
End Function
If you are going to rely on an ascending sort order, it is better to have your folders use a naming convention like \20160707\ rather than \07 July 2016\.