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
|