BlueM.Opt input files

Aufrufen einer EXE-Datei

<vbnet> Private Sub executeExe()

  Dim ProcID As Integer
  'Aktuelles Arbeitsverzeichnis feststellen
  Dim currentDir As String = CurDir()
  'gewünschtes Arbeitsverzeichnis definieren
  Dim workingDir As String = "Pfad\zum\Arbeitsverzeichnis"
  'zum gewünschten Arbeitsverzeichnis navigieren
  ChDrive(workingDir) 'nur nötig falls Arbeitsverzeichnis und aktuelles Verzeichnis auf verschiedenen Laufwerken sind
  ChDir(workingDir)
  'EXE aufrufen
  ProcID = Shell("""Pfad\zur\EXE"" Uebergabeparameter", AppWinStyle.NormalFocus, True)
  'Arbeitsverzeichnis wieder zurücksetzen (optional)
  ChDrive(currentDir)
  ChDir(currentDir)

End Sub </vbnet>