DominoArea.org [Archive]

je suis sous la V4.6 et je voudrai trouver l'équivalent de SaveFileDialog

Sous Windows et LS: Declare Function NEMPutFile 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 szFileName As String*256Dim szTitle As StringDim szFilter As String Dim szSaveFile as String szFilename = Chr(0)szTitle = "Save File"szFilter = "All Files |*.*|Word Document |*.doc|Text Files|*.txt|" If NEMPutFile( 0, szFileName, szFilter, szTitle) <> 0 Then szSaveFile = szFileName End If messagebox szFileSaveEnd Sub[%sig%]