Obtener el nombre del último directorio

For Each d As String In empresas
Dim dname As String = New DirectoryInfo(d).Name
Next


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