Rep de depart .net

Dim aPath As String 
    Dim aName As String 

    aName = _
        System.Reflection.Assembly.GetExecutingAssembly(). _
            GetModules(0).FullyQualifiedName    
    
    aPath = System.IO.Path.GetDirectoryName(aName) 

    If Right(aPath, 1) <> "\" Then 
        aPath += "\" 
    End If