PROCURAR ARQUIVO

USUARIO.EXCLUIDOS 20/04/2007 08:36:48
#212881
Galera tenho um form com uma caixa de texto e criei um botão onde esse botão gostaria que quando eu clicasse no botão abrisse a caixa de diálogo do windows onde eu possa procurar os arquivos, eu quero que quando eu clica-se no arquivo desejado esse caminho se armazenasse na minha caixa de texto
o arquivo é do tipo ini ou txt
USUARIO.EXCLUIDOS 20/04/2007 08:45:05
#212883
Private Sub Command1_Click()
Me.CommonDialog1.ShowOpen
Me.Text1.Text = Me.CommonDialog1.FileName
End Sub
TAMANINI 20/04/2007 08:46:14
#212885 Resposta escolhida
Tente assim:
Private Sub btmArquivo_Click()

    cdlArquivo.Flags = cdlOFNHideReadOnly Or cdlOFNExplorer _
                            Or cdlOFNFileMustExist
    cdlArquivo.CancelError = True
    cdlArquivo.DialogTitle = "Selecionar Arquivo"
    cdlArquivo.Filename = ""
    cdlArquivo.Filter = "Arquivos (*.ini)|*.ini|texto (*.txt)|*.txt"      '"Arquivos (*.txt)|*.txt|Outros (*)|*"
    cdlArquivo.FilterIndex = 1
    cdlArquivo.ShowOpen
    textbox1.Text = cdlArquivo.Filename
end sub
Tópico encerrado , respostas não são mais permitidas
Voltar