Usando o componente tFileDialog

Blog Advpl - Share knowledge

Usando o componente tFileDialog

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.

 

Português Português Español Español English English