Directorio de un archivo

archivo = "D:\programa\bin\archivos\test\archivo.xml"

Dim ruta As String = New FileInfo(archivo).Directory.FullName
Dim ruta As String = Path.GetDirectoryName(archivo)

Obtener el primer directorio después del directorio raíz

Dim dir As System.IO.FileInfo = New System.IO.FileInfo(nombre_archivo)
dir.Directory.Parent.FullName