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:
|
1 2 3 4 5 6 |
#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.
Deixe uma resposta