TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 6 Próxima »

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


Importante

Essa função não retorna arquivos do Servidor de Aplicação.

Sintaxe

tFileDialog():New([ cMascara], [ cTitulo], [ nMascpadrao], [ cDirinicial], [ lSalvar], [ nOpcoes]) --> cRet

Parâmetros


NomeTipoDescriçãoObrigatórioReferência
cMascaraCarácterIndica a máscara de arquivos, ex:
ret := TFileDialog("All files (*.*) | All Text files (*.txt)", ...

cTituloCarácterIndica o título da janela. Caso o parâmetro não seja especificado, o título padrão será apresentado.

nMascPadraoNumérico

Se preenchido parâmetro cMascara, este indicará o número da máscara padrão, sendo um parâmetro base zero, 
onde caso selecionado 0, será selecionado o primeiro item da mascara.

No exemplo abaixo preenchemos duas mascaras, "Todos Arquivos" e "Arquivos de Texto", ao preencher
o parâmetro nMascPadrao como 1 o tipo de arquivo padrão será automaticamente "All Text files".
tFileDialog( "All files (*.*) | All Text files (*.txt) ", 'Arquivos', 1, "c:/tmp",.F.)



cDirInicialCarácterIndica o diretório inicial.

lSalvarLógicoIndica se é um "save dialog" ou um "open dialog".

nOpcoesNumé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)



Retorno

Nome

Tipo

Descrição

cRet

Caracter

Retorna o(s) arquivo(s) selecionados ou diretórios.
para mais informações leia sobre o parâmetro nOpcoes da função.

Observações

Função disponível apenas em builds superiores a 7.00.170117A.

A função TFileDialog não deve ser executada em JOB.



Exemplo
#INCLUDE "TOTVS.CH"
 
User Function FileDlg()
local tmp := getTempPath()
local targetDir:= tFileDialog( "All files (*.*) | All Text files (*.txt) ",;
        'Selecao de Arquivos', 0, tmp, .F., GETF_MULTISELECT )

    msgAlert(targetDir)
return

Preview


A visualização desta janela será diferente para cada sistemas operacional, abaixo os exemplos rodando em Windows e Linux:




  • Sem rótulos