How to get Windows standard "Save As" dialogue box

[hua]

I can't remeber right now how this is done. Is it by calling cGetFile() and passing some flags?

TIA.

[mmercado]

I can't remeber right now how this is done. Is it by calling cGetFile() and passing some flags?

Hi Hua:

Here you are a little working sample:

Code: Select all  Expand view

#include "FiveWin.ch"

Function Main()

   Local cNewName, ;
         cMask     := "Databases (*.dbf)|*.dbf|All files (*.*)|*.*", ;
         cTitle    := "Select the database", ;
         cFolder   := "c:\fwh\samples", ;
         cFilename := "customer.dbf", ;
         lSave     := .T.

   cNewName := cGetFile( cFilter, cTitle,, cFolder, lSave,,, cFileName )
   ?cNewName

Return Nil

Regards

Manuel Mercado

[hua]

Thank you Manuel.