Apresenta uma janela para seleção de arquivos da estação de trabalho em uso pelo SmartClient.

Na minha opinião ficou ótimo a tela, finalmente evoluiram

Antes:



Depois:



 



Nome
Tipo
Descrição


cMascara
Carácter
Indica a máscara de arquivos, ex:
ret := TFileDialog("All files (*) | All Text files (*.txt)", ...


cTitulo
Carácter
Indica o título da janela. Caso o parâmetro não seja especificado, o título padrão será apresentado.


nParam3
Numérico
Compatibilidade


cDirInicial
Carácter
Indica o diretório inicial.


lSalvar
Lógico
Se .T. (true) indica que é um "save dialog"
se .F. (false) indica que é um "open dialog".


nOpcoes
Numérico
Caso parâmetro não seja preenchido será possível selecionar apenas um arquivo, ex:
ret := TFileDialog("All(*)",'Arquivos',0,"/tmp",.F.)Caso utilizado o parâmetro  GETF_MULTISELECT será possível selecionar múltiplos arquivos, ex:
ret := TFileDialog("All(*)",'Arquivos',0,"/tmp",.F.,GETF_MULTISELECT)Caso utilizado o parâmetro GETF_RETDIRECTORY será possível selecionar apenas diretórios, ex:
ret := TFileDialog("All(*)",'Arquivos',0,"/tmp",.F.,GETF_RETDIRECTORY)



 

Sintaxe: tFileDialog( cMascar, cTitulo, nParam3, cDirInicial, lSalvar, nOpcoes)

Retorno: Retorna o(s) arquivo(s) selecionados ou diretórios

Exemplo:
#include "Totvs.ch"
User Function Seleciona()
    local cTmp := getTempPath()
    local cArquivo := tFileDialog( "Todos os arquivo (*.*) | Arquivos texto (*.txt) ", 'Selecao de Arquivos',, tmp, .F., GETF_MULTISELECT ) 
    MsgInfo(cArquivo)
Return
 

Atenção:

 	
Função disponível apenas em builds superiores a 7.00.170117A.
 	
A função TFileDialog não deve ser executada em JOB.
 	
Essa função não retorna arquivos do Servidor de Aplicação.