selecionar arquivo com common dialog

[Alex Mauricio]

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.

Editado Outubro 28, 2009 por kuroi
Adicionar tag CODE

[kuroi]

alex, em vez de por o codigo em italico, ponha dentro da tag CODE q fica mais facil de ler.

agora, isso ai q você quer, eu faria assim:

If cmmCarregaArquivo.FileName = "" Then
    MsgBox "NADA SELECIONADO"
Else
    MsgBox "1"
End If[/code]
inclusive a propriedade FileName já traz o nome do arquivo com o caminho todo assim como você quer.