Imports LaserControl

Zitat:

Wie kann ich das machen? Beide Exes haben den gleichen Dateinamen? Identifizieren könnte ich die richtige Datei über das Betriebssystem (64bit/32bit) oder den Computernamen ohne Probleme.

Imports LaserControl 'name der besagten Exe
 
Public Class Laser
    Protected frmLaserControlMain As LaserControl.frmMain 'LaserControl.frmMain 
    ' frmLaserControlMain = null; //Used to get access to the main form of 
    ' LaserControl
    Protected WithEvents frmLaserControl As LaserControl.frmLaserControl _
      'LaserControl.frmLaserControl frmLaserControl = null; //Used to access 
    ' the main user interface form
 
Public Sub Start() 'New()
        Try
            InitializeLaserControl()
        Catch ex As Exception
            MessageBox.Show(Convert.ToString(ex))
        End Try
    End Sub
 
    Public Sub InitializeLaserControl()
        Try
            frmLaserControlMain = New LaserControl.frmMain() 'Laser-Software 
            ' "MagigMark" starten
            frmLaserControl = frmLaserControlMain.LaserControl 
 
            frmLaserControlMain.Show()
        Catch ex As Exception
            fehler(ex, "initializelasercontrol")
        End Try
    End Sub

    Protected frmLaserControlMain As LaserControl.frmMain 'LaserControl.frmMain 
    ' frmLaserControlMain = null; //Used to get access to the main form of 
    ' LaserControl

'1. Den Pfad zur gewünschten Assembly festlegen. 
Dim path as String = "......"
 
'2. Die gewünschte Assembly zur Laufzeit laden:
Dim myasm As System.Reflection.Assembly = _
   System.Reflection.Assembly.LoadFile(path)
 
'optional: Auflistung aller Typen in der geladenen Assembly
Dim types() As System.Type = myasm.GetTypes
 
'3. Eine Instanz der gewünschten Klasse erstellen 
Dim myfc As Object = myasm.CreateInstance("Assemblyname.FileCompare", True)
'eine Instanz der Rückgabe-Enumeration erstellen
Dim myfcr As Object = myasm.CreateInstance("Assemblyname.FileCompareResult", _
  True)
 
'optional: Die Methoden der Klasse "FileCompare" auflisten
Dim methods() As Object = myfc.GetType.GetMethods()
 
'4. Eine Methoden-Info für den Zugriff auf die Instanz-Methode "Compare"
Dim myMethod As System.Reflection.MethodInfo = myfc.GetType.GetMethod("Compare")
 
'5. Die Liste der Parameter für einen Aufruf von "Compare" als Array 
Dim parameters() As Object = {"Dokument_Link.rtf", "C:\daten1", "C:\daten2"}
 
'6. Die Methode mit den Parametern ausführen
'Dabei muß zunächst die Instanz der Klasse gegeben werden, in der sich die
'Methode befindet, danach die Parameter
myfcr = myMethod.Invoke(myfc, parameters)