Apresenta uma janela para seleção de arquivos da estação de trabalho em uso pelo SmartClient.
- 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.
|
Sintaxe tFileDialog():New([ cMascara], [ cTitulo], [ nMascpadrao], [ cDirinicial], [ lSalvar], [ nOpcoes]) --> cRet
|
Parâmetros
Nome | Tipo | Descrição | Obrigatório | Referência | 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. |
|
| nMascPadrao | Numé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.) |
|
| cDirInicial | Carácter | Indica o diretório inicial. |
|
| lSalvar | Lógico | Indica se é um "save dialog" ou 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) |
|
|
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. |
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:
|