Mega Code Archive

 

Categories / VB.Net / Reflection

 

AppDomain GetAssemblies

Imports System Imports System.Reflection Imports System.Security.Policy 'for Evidence object Class ADGetAssemblies    Public Shared Sub Main()       Dim currentDomain As AppDomain = AppDomain.CurrentDomain       Dim asEvidence As Evidence = currentDomain.Evidence       currentDomain.Load("CustomLibrary", asEvidence)       Dim assems As [Assembly]() = currentDomain.GetAssemblies()       Dim assem As [Assembly]       For Each assem In  assems          Console.WriteLine(assem.ToString())       Next assem    End Sub  End Class