COMO PEGAR SO DIRETORIO COM O COMMONDIALOG?

MATHEUSNERIS 07/03/2013 11:00:38
#420096
Pessoal bom dia!

Tenho uma tela que quando eu clico em um botão eu abro um CommonDialog e seleciono um arquivo .txt.. Quando eu fechar esta tela eu preciso que venha o caminho e o nome do arquivo txt para um textbox, como por exemplo (D:\Mq_Virtual\Teste.txt). Eu estou tentando da seguinte forma, só que não esta vindo para o textbox:

  Private Sub btnCommonDialogue_Click()
    Dim prop As String

    CommonDialog1.DialogTitle = [Ô]Arquivo para importacao .txt[Ô]
    CommonDialog1.InitDir = App.Path
    prop = [Ô](*.txt)|*.txt[Ô]
    CommonDialog1.Filter = prop
    CommonDialog1.FilterIndex = 1
    CommonDialog1.FileName = [Ô][Ô]
    txtArquivo.text = CommonDialog1.FileName
    CommonDialog1.ShowOpen

End Sub
ALEVALE 07/03/2013 11:42:17
#420099
Não me recordo como faz isso no VB6 (nem tenho mais aqui) mas deve txtArquivo.text = CommonDialog1.FileName.fullpath

Coloca um [Ô].[Ô] depois do FileName que ele listará todas as opções.
ROBIU 07/03/2013 12:45:46
#420103 Resposta escolhida
Primeiro execute a linha para abrir a caixa de diálogo, depois para colocar o caminho e nome de arquivo no textbox:

CommonDialog1.ShowOpen
    txtarquivo.Text = CommonDialog1.FileName
MATHEUSNERIS 07/03/2013 13:05:48
#420110
Obrigado Robiu. Era isso mesmo. Ficou assim.

    Private Sub btnCommonDialogue_Click()
    Dim prop As String

    CommonDialog1.DialogTitle = [Ô]Arquivo para importacao .txt[Ô]
    CommonDialog1.InitDir = App.Path
    prop = [Ô](*.txt)|*.txt[Ô]
    CommonDialog1.Filter = prop
    CommonDialog1.FilterIndex = 1
    CommonDialog1.FileName = [Ô][Ô]
    CommonDialog1.ShowOpen
            txtArquivo.text = CommonDialog1.FileName

End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar