Dim diProjektOrdner As New IO.DirectoryInfo("C:\Mein\Projekt\Ordner")
        ' C:\Mein\Projekt
        Dim dir1 As String = diProjektOrdner.Parent.FullName
        ' C:\Mein
        Dim dir2 As String = diProjektOrdner.Parent.Parent.FullName
        MsgBox(dir1 & vbNewLine & dir2)