selecionar arquivo com common dialog

[Alex Blumer 0]

Pessoal, estou com o seguinte código:

 

Option Explicit

Private Sub cmdSelecionarArquivo_Click()
Dim tipo As String
Dim achouArquivo As Boolean

cmmCarregaArquivo.DialogTitle = "Selecione um arquivo para carregar no Banco de Dados!"
cmmCarregaArquivo.InitDir = "c:"
'cmmCarregaArquivo.InitDir = App.Path --> mostra o diretório onde está o sistema
'cmmCarregaArquivo.FileName = arquivo - CASO QUEIRA DEIXAR PRÉ-DEFINIDO UM ARQUIVO
tipo = "Arqs. CSV(*.csv)|*.csv|Todos " & "Arqs. (*.*)|*.*|"
cmmCarregaArquivo.Filter = tipo
cmmCarregaArquivo.Flags = cdlOFNFileMustExist + _
cdlOFNHideReadOnly + _
cdlOFNLongNames + _
cdlOFNExplorer
cmmCarregaArquivo.CancelError = False
cmmCarregaArquivo.ShowOpen

achouArquivo = cmmCarregaArquivo.Flags

If cmmCarregaArquivo.Flags = 0 Then
MsgBox "NADA SELECIONADO"
Else
MsgBox "1"
End If

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
SendKeys ("{TAB}")
KeyAscii = 0
End If
End Sub

Em primeiro lugar, estou fazendo um teste (sem sucesso) com um IF que quando eu selecionar um arquivo ele me mostra o número 1 quando eu der um cancelar ele me mostra NADA SELECIONADO.

 

Após acertar isso, eu gostaria que na hora que eu selecionar um arquivo, quero que monte em uma string o local do arquivo, como por exemplo "c:\DIRETORIOX\teste.csv"

 

Obrigado.

[Claudio Neto 3]

No seu if, você pode comparar a proprieadade filename do common dialog vendo se a mesma está vazia. Se estiver é porque nada foi selecionado.

E para pegar o endereço basta passar essa mesma propriedade para uma variável ou uma caixa de texto.