Domino 9 und frühere Versionen > Entwicklung

Starten externer Java Application

<< < (4/5) > >>

cash:
ich habe so ein ähnliches Problem.

Der Aufruf der Anwendung klappt bei mir ohne Probleme.

Leider sind bei uns im Unternehmen die Programme nicht immer gleich installiert
sondern an 3 Stellen:

c:\Programme\microsoft office PE\Office11\winword.exe oder
c:\Programme\microsoft office SE\Office11\winword.exe oder
c:\Programme\microsoft office\Office11\winword.exe

kann ich irgendwie eine Abfrage basteln
starte erst den ersten Pfad --> wenn nicht 33 zurückgegeben wird probier den nächsten und so weiter... und unterdrück die Fehlermeldung "File not found"

Aber irgendwie kommt bei mir nur die Fehlermeldung File not found und Notes ist fertig....

Cash

Axel:
Das ist ein Fall für das Errorhandling. Mehr dazu findest du hier: http://atnotes.de/index.php?topic=11980.0

Axel

cash:
Vielen Dank das hat mich ein gutes Stück weiter gebracht. Leider aber nicht bis zum Ziel:

Ich schaffe es jetzt 2 versch. Installationsverzeichnisse anzuspringen aber dann hängt er. Hier mal ein Teil des Codes:

Programm:
   prog=" "
   Select Case lager
   Case "Word" : prog="c:\Programme\Microsoft Office SE\Office11\winword.exe"   
   Case "Excel" : prog="c:\Programme\Microsoft Office SE\Office11\excel.exe"   
   Case "Acrobat Reader" : prog="acrord32"
   End Select
   prog=prog+datei
   If start=0 Then
      On Error 53 Goto Fehler1
      taskId% = Shell(prog, 1)
      Exit Sub      
   End If
   
Fehler1:
   Messagebox "Error1" & Str(Err) & ": " & Error$
   prog=" "
   start=0
   Select Case lager
   Case "Word" : prog="c:\Programme\Microsoft Office PE\Office11\winword.exe"   
   Case "Excel" : prog="c:\Programme\Microsoft Office PE\Office11\excel.exe"         
   Case "Acrobat Reader" : prog="acrord32"
   End Select      
   prog=prog+datei
   If start=0 Then
      On Error 53 Goto Fehler2      
      taskId% = Shell(prog, 1)
      Exit Sub      
   End If
   
Fehler2:
   Messagebox "Error2" & Str(Err) & ": " & Error$
   prog=" "
   start=0
   Select Case lager
   Case "Word" : prog="c:\Programme\Microsoft Office\Office11\winword.exe"   
   Case "Excel" : prog="c:\Programme\Microsoft Office\Office11\excel.exe"   
   Case "Acrobat Reader" : prog="acrord32"
   End Select      
   prog=prog+datei
   If start=0 Then
      On Error 53 Goto Fehler2      
      taskId% = Shell(prog, 1)
      Exit Sub         
   End If
   

Ich vermute mal er will einfach nicht den zweiten on error 53 goto fehler 2 ausführen!

Gibt es dafür eine Lösung?

Gruß

Cash

Axel:
Ähm, wenn ich mir den Code so anschaue und ich mich nicht alles täuscht, schickst du ihn in eine Endlosschleife.

...
Fehler2:
   Messagebox "Error2" & Str(Err) & ": " & Error$
..
   If start=0 Then
      On Error 53 Goto Fehler2     
      taskId% = Shell(prog, 1)
      Exit Sub         
   End If
....

Du springst beim Fehler immer wieder vor die Stelle die den Fehler verursacht hat und somit tritt der Fehler ja wieder auf, usw.


Axel
 

Pyewacket:
Ich würde das anders machen.
Wenn Office auf dem Rechner installiert ist dann sind die Dateiendungen mit den Office-Komponenten assoziiert. Jetzt müsste man 'nur' noch diese Verknüpfung in der Registry suchen und dort steht dann wo das Programm hinterlegt ist.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete