K
Klido
наткнулся на красивый пример
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">Код</div></div><div class="sp-body"><div class="sp-content">
Ссылка скрыта от гостей
:<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">Код</div></div><div class="sp-body"><div class="sp-content">
Код:
Option Public
Option Explicit
Uselsx "*javacon"
Sub Initialize
Dim workspace As New NotesUIWorkspace
Dim response As Variant
response = workspace.SaveFileDialog(False, "File name", "All Files|*.*", "", "")
If Not Isempty (response) Then
Dim fileName As String
fileName = response(0)
Dim jSession As JavaSession
Dim jClass As JavaClass
Dim jMethod As JavaMethod
Set jSession = New JavaSession()
Set jClass = jSession.GetClass("org/eclipse/swt/program/Program")
Set jMethod = jClass.GetMethod("launch","(Ljava/lang/String;)Z")
Call jMethod.Invoke(, fileName)
End If
End Sub