Lov Para exibir os diretórios e arquivos na máquina local

Dicas do Oracle Forms Builder - Blocos, Itens, LOV, Canvas, Triggers, comandos, PLL, d2kwutil, FMB, Alert, menus, etc
Responder
eduardo
Rank: Programador Sênior
Rank: Programador Sênior
Mensagens: 56
Registrado em: Ter, 10 Jul 2007 3:24 pm
Localização: sp
Sempre há algo a aprender....

Oi pessoal,

alguém sabe se é possível criar uma lov no forms que exiba os diretórios da máquina do usuário e os arquivos existentes em cada diretório?

a idéia seria abrir um arquivo texto que está salvo na maquina local do usuário; esse arquivo é usado para popular uma tabela do banco.

desde já agradeço a ajuda
Avatar do usuário
dr_gori
Moderador
Moderador
Mensagens: 5024
Registrado em: Seg, 03 Mai 2004 3:08 pm
Localização: Portland, OR USA
Contato:
Thomas F. G

Você já respondeu a dúvida de alguém hoje?
https://glufke.net/oracle/search.php?search_id=unanswered

eduardo
Rank: Programador Sênior
Rank: Programador Sênior
Mensagens: 56
Registrado em: Ter, 10 Jul 2007 3:24 pm
Localização: sp
Sempre há algo a aprender....

ajudou sim muito obrigado.
vindalencio
Rank: Analista Sênior
Rank: Analista Sênior
Mensagens: 140
Registrado em: Qui, 16 Fev 2006 9:42 am
Localização: Curitiba
Vanderlei Indalencio

Como dar a opção de localizar diretórios e digitar o nome do arquivo:
*/Basta colocar no botão ao lado do campo do nome do arquivo.

Selecionar tudo

declare
	
v_caminho_arquivo varchar2(250);

begin
	v_caminho_arquivo := GET_FILE_NAME(directory_name => 'C:\',
	                                   File_Filter=> 'Arquivos TXT(*.txt)|*.txt|',
	                                   File_name=>null,
	                                   dialog_type=>open_file,
	                                   message=>'Selecione o local e digite o nome arquivo para ser criado.',
	                                   select_file=> TRUE); 
	                                               
	if v_caminho_arquivo is not null then
		:parametro.nm_arquivo := v_caminho_arquivo; 
	else
		:parametro.nm_arquivo := 'C:\'; 
	end if;
                                   
end;
Responder
  • Informação
  • Quem está online

    Usuários navegando neste fórum: Nenhum usuário registrado e 7 visitantes