Open File Dialog in Script


'(Declarations)
Declare Function NEMGetFile Lib "nnotesws" ( wUnk As Integer, Byval szFileName
As String, Byval szFilter As String, Byval szTitle As String ) As Integer
'use nnotesws for Win95 and WinNT, inotesws for OS/2, and _nem for Win16

Sub Click(Source As Button)
Dim szFileName As String*256
Dim szTitle As String
Dim szFilter As String
Dim session As New NotesSession
'Needs to be a NULL before calling the function
szFilename = Chr(0)
szTitle = session.Commonusername & ", select your database NOW"
szFilter = "MS Word Documents|*.doc|Notes Databases|*.NSF|Notes
Templates|*.NTF|Programs|*.EXE|All Files|*.*|" 'Use this format for ANY file type
If NEMGetFile( 0, szFileName, szFilter, szTitle) <> 0 Then
' We need to do this because the return is a NULL terminated string.
szFileName = szFileName & |"|
Messagebox szFileName, 64, "File Selected"
End If
End Sub

This was first published in November 2000

Dig deeper on Domino Resources - Part 4

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWinIT

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.UK

Close