Obtener nombre del penúltimo directorio

Dim dirfolder As String = "D:\bin\Debug\empresas\789-K"
Dim namefolder As String = Path.GetDirectoryName(dirfolder).Split("\").LastOrDefault


Obtener el directorio si la ruta viene con un archivo

Path.GetDirectoryName(D:\capturas\1-9\config.txt)

resultado: D:\capturas\1-9