Imports System.Reflection
Public Class Tester
Public Shared Sub Main
Dim myCurrentAppDomain As AppDomain
Dim myAssemblies() As [Assembly]
Dim myAssembly As [Assembly]
Try
myCurrentAppDomain = AppDomain.CurrentDomain
myAssemblies = myCurrentAppDomain.GetAssemblies
For Each myAssembly In myAssemblies
Console.WriteLine(myAssembly.FullName)
Next
Console.WriteLine(myCurrentAppDomain.FriendlyName)
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub
End Class
mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
main, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null
Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
main.exe