Warum geht das nicht (Eveluate)

[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