Imports System.Reflection
Module Program
Sub Main()
Dim defaultAD As AppDomain = AppDomain.CurrentDomain()
PrintAllAssembliesInAppDomain(defaultAD)
End Sub
Public Sub PrintAllAssembliesInAppDomain(ByVal ad As AppDomain)
Dim loadedAssemblies As Assembly() = ad.GetAssemblies()
Console.WriteLine(ad.FriendlyName)
For Each a As Assembly In loadedAssemblies
Console.WriteLine("-> Name: {0}", a.GetName.Name)
Console.WriteLine("-> Version: {0}", a.GetName.Version)
Next
End Sub
End Module
|