AppDomain and Reflection

[John Wright]

I have the following code that creates a new appDomain and loads an exe
using reflection. The problem I have is the exe file I pass in is still
locked by the application. I have showcopyfiles = "true" and specified the
locations for the appDomain to use. The shadowfiles and the original file is
locked when I execute the command tmpAssm = .Load(strApplic ationName). Now
if I have shadowcopyfiles on, why would setting the assembly to the file
lock it? Any help is appreciated.

John

Private tmpDomain As AppDomain

Public Function LoadProgram(ByV al strApplicationN ame As String, ByVal
strApplicationE ntryPoint As String) As Form

Dim tmpAppDomain As New AppDomainSetup

Dim tmpAssm As Assembly

Dim strName() As String

Dim strVersion As String

tmpAppDomain.Ap plicationBase = "d:\wzprogr ams"

tmpAppDomain.Sh adowCopyFiles = "true"

tmpAppDomain.Sh adowCopyDirecto ries = "d:\wzprogr ams"

tmpAppDomain.Pr ivateBinPath = "d:\wzprogr ams"

'set the cache path for shadow files

tmpAppDomain.Ca chePath = "d:\wzprograms\ tmp"

tmpDomain = AppDomain.Creat eDomain("Temp", AppDomain.Curre ntDomain.Eviden ce,
tmpAppDomain)

With tmpDomain

'.ExecuteAssemb ly("D:\wzprogra ms\versioncheck .exe")

tmpAssm = .Load(strApplic ationName)

'.ExecuteAssemb ly(strApplicati onName)

End With

'Get the version of the program

strName = Split(tmpAssm.F ullName.ToStrin g, ",")

strVersion = strName(1)

'set up the form to display by calling the Entry Point for the program.

LoadProgram = tmpAssm.CreateI nstance(strAppl icationEntryPoi nt, True)

Dim extType As Type = tmpAssm.GetType (strApplication EntryPoint)

Dim extInfo As MethodInfo = extType.GetMeth od("SetProperti es")

If extInfo Is Nothing Then

MsgBox("This program cannot be run in the framework.", MsgBoxStyle.Cri tical,
"Invalid Framework Program")

Exit Function

End If

Dim myParamArray() As Object = {12345}

extInfo.Invoke( LoadProgram, myParamArray)

LoadProgram.Nam e = ("Test")

LoadProgram.Tex t = "VersionChe ck. " & strVersion

AppDomain.Unloa d(tmpDomain)

End Function