Domino 9 und frühere Versionen > Entwicklung

Warum geht das nicht (Eveluate)

(1/1)

Badhei:
Dim ws As New notesuiworkspace
   Dim files As Variant
   
   files = ws.openfiledialog(False, "File List", "", "c:\Demoumgebung\Demodateien")
   
   Evaluate("@command([execute];'soffice.exe';+""files(0)""+)")

ata:
... interaktive Dinge, wie @DBColumn, @Dialogbox und @Command... funktionieren nicht in Evaluate - mehr findest du in der Hilfe...

ata

meichhorner:
Shell function  

Beispiel
Starts another program.
Syntax
Shell ( program [ , windowStyle ] )
Elements
program
A string expression whose value is the name of the program to run, including arguments. program can be the name of an executable file that uses a file name extension of BAT, COM, PIF, or EXE. You can omit the file name extension, and you can optionally include a complete path specification.
Using an internal DOS command name generates an error.
windowStyle
Optional. A number designating a valid window style, as specified in the following table.
   Style   Description   Constant
   1, 5, or 9   Normal with focus   SHELL_NORMAL_FOCUS
   2   Minimized with focus (default)   SHELL_MIN_FOCUS
   3   Maximized with focus   SHELL_MAX_FOCUS
   4 or 8   Normal without focus   SHELL_NORMAL_NO_FOCUS
   6 or 7   Minimized without focus   SHELL_MIN_NO_FOCUS

Cu
Martin ;)

Badhei:
Danke für die Antworten doch bringen die mich leider nicht weiter.

Ich muß eine Datei auswählen können so wie mit dem "openfiledialog" und dann starten so wie mit dem "@commad([execute]"";"").

Gibt es da irgend eine möglich das zu realisieren.

Axel:
Hi,

versuchs mal so:

Dim workspace As New NotesUIWorkspace
Dim files As Variant
Dim taskId As Integer

files = workspace.OpenFileDialog(False, "File List", "", "c:")

taskId = Shell(files(0), 1)

Axel

Navigation

[0] Themen-Index