Ich habe das Ganze in einer Datenbank mal wie im Codefragment dargestellt gelöst.
Codefragment:
(Declarations)
Declare Function NEMGetFile Lib "nnotesws" ( wHandle As Integer, Byval szFileName As String, Byval szFilter As String, Byval szTitle As String ) As Integer
Sub Click(Source As Button)
...
'Declare variables...
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim szFileName As String*256
Dim szTitle As String
Dim szFilter As String
Dim szSelectedFile As String
...
...
'Set values...
szFilename = "test.doc"
szTitle = "Open File"
szFilter = "All Files |*.*|DOC|*.doc|"
If NEMGetFile( 0, szFileName, szFilter, szTitle) <> 0 Then
szSelectedFile = szFileName
End If
....
Kann es sein, weil du H:\ an die Box übergibst?
Axel