Como chamar uma Open file dialog box por um Button?

[franklin_kunioshi]

Como chamar uma "Open file dialog box" por um Button?

Como uma janela que abre um arquivo
preciso dela para poder chamar um arquivo .txt !

será que tem como fazer isso
se tiver por favor me deem uma ajuda

Obrigado!

[rodfbar]

e aí beleza??


vê se isso te serve..


--

Selecionar tudo

	  :ITENS.CAMINHO_ARQUIVO := NVL(GET_FILE_NAME(NVL(:ITENS.CAMINHO_padrão,'C:\'), NULL,
	               'Arquivos de Texto (*.txt)|*.TXT|'  ||               
	               'Todos os Arquivos (*.*)|*.*|', NULL, OPEN_FILE),:ITENS.CAMINHO_padrão);
	  --
	  WHILE (NOT(:ITENS.CAMINHO_ARQUIVO LIKE '%.TXT') AND NOT(:ITENS.CAMINHO_ARQUIVO LIKE '%.txt'))
		  AND :ITENS.CAMINHO_ARQUIVO <> :ITENS.CAMINHO_padrão LOOP
		    MESSAGE('Tipo de arquivo inválido.');
		    MESSAGE(' ',NO_ACKNOWLEDGE);
		    --   
		    :ITENS.CAMINHO_ARQUIVO := NVL(GET_FILE_NAME(NVL(:ITENS.CAMINHO_padrão,'C:\'), NULL,
	               'Arquivos de Texto (*.txt)|*.TXT|'  ||               
	               'Todos os Arquivos (*.*)|*.*|', NULL, OPEN_FILE),:ITENS.CAMINHO_padrão);
	  END LOOP;