Permalink
Cannot retrieve contributors at this time
Fetching contributors…
| ' <snippet2> | |
| Imports System | |
| Imports System.Reflection | |
| Class AppDomain4 | |
| Public Shared Sub Main() | |
| ' Create application domain setup information. | |
| Dim domaininfo As new AppDomainSetup() | |
| domaininfo.ApplicationBase = "f:\work\development\latest" | |
| ' Create the application domain. | |
| Dim domain As AppDomain = AppDomain.CreateDomain("MyDomain", Nothing, domaininfo) | |
| ' Write application domain information to the console. | |
| Console.WriteLine("Host domain: " + AppDomain.CurrentDomain.FriendlyName) | |
| Console.WriteLine("child domain: " + domain.FriendlyName) | |
| Console.WriteLine("Application base is: " + domain.SetupInformation.ApplicationBase) | |
| ' Unload the application domain. | |
| AppDomain.Unload(domain) | |
| End Sub | |
| End Class | |
| ' </snippet2> |