Fonction retournant le nom de la DLL appelante
Paramètre d'entré : vide
Paramètre de sortie : Assembly
Private Function getCallingAssemblyName() As Assembly
Dim CallerAssemblies As IEnumerable(Of Assembly) = New StackTrace().GetFrames().[Select](Function(x) x.GetMethod().ReflectedType.Assembly).Distinct().Where(Function(x) x.GetReferencedAssemblies().Any(Function(y) y.FullName = Assembly.GetExecutingAssembly().FullName))
Return If(CallerAssemblies.Count > 0, CallerAssemblies(0), Nothing)
End Function
Dans l'objet Assembly, certaines proprétés sont intéressantes comme :
- FullName : Nom de la DLL + Numero de version etc...
- ManifestModule.ScopeName : Nom de la DLL
- Location : Chemin de la DLL
Si vous avez des suggestions d'ajouts, de corrections, m'en faire part Merci
Dernière maj : 18/07/2019