[Resolvido]abrir pasta sem nome do arquivo

Boa noite, mais uma vez preciso de ajuda...

tem como atraves do commondlg retornar somente o caminho sem o arquivo

ex:
retornar : C:\BancoDeDados\Sistema\ e não: C:\BancoDeDados\Sistema\meu banco.mdb

obrigado

Bom Dia Amigo:

Se você está utilizando o controle ocx, desde já lhe digo que não deve utiliza-lo, pois está sugeito ás piores surpresas. Esse ocx é nativo do visual basic.

Existem outras opções para o Access sem o uso de ocx. Se for este o caso deve colocar no código do módulo vba a alteração:

"C:\BancoDeDados\Sistema"


Retorne p.f.

obrigado vieira, mas não é um caminho fixo, o usuário tem a opção de setar o caminho onde desejar, ele pode escolher por isso usei a ocx. fico aguardando sua resposta, inté.

Amigo Macedo

Você continua equivocado. A OCX Dialog é um controlo nativo do VB e completamente desaconselhado para usar no access, para não dizer proibido.

Também ainda não disse se o uso é para guardar, fazer backup ou qual o fim a que se destina, pois posso arranjar uma solução viável para si ao invés de pactuar com uma asneira que está a fazer.

Seja claro no retorno

Desculpa a ignorancia amigo Vieira, vamos lá se consigo ser bem claro:
tenho um sistema de backup, que faz o backup em uma pasta pre-definida, mas recentemente meus clientes solicitaram que o backup seja feito em um pen-drive como o pen-drive ora está no F:\ ora no G:\ eu queria que o usuario tivesse a opção de setar o caminho do pen-drive.

obrigado.

Amigo Macedo

O Mestre JPaulo tem na sala de repositórios de VBA algumas excelentes rotinas para backup. Eu uso uma nas minhas aplicações.

Envio-lhe um exemplo para que você verifique a simplicidade. Substituir o caminho pelo que deseja

http://dl.dropbox.com/u/8157744/Backup1.mdb

Amigão:

Altere o seguinte código no exemplo enviado para atender ao que pretende e teste

Private Sub cmdOpen_Click()
On Error GoTo Err_CmdAbreFichero_Click
Dim Msg, Style, Title
Msg = "Cópia pronta a ser copiada)"
Style = vbInformation
Title = "Copiar"
Dim RutaFichero As String
RutaFichero = Me.txtFile
If Len(RutaFichero) <> 0 Then
Carrego o ficheiro no campo de texto
Trim(RutaFichero) = Me.txtFile
End If

Exit_CmdAbreFichero_Click:
Exit Sub

Err_CmdAbreFichero_Click:
Msg = MsgBox(Msg, vbInformation, Title)
Resume Exit_CmdAbreFichero_Click
End Sub

Caro Vieira, uma simples linha de comando ..., True, "", 0
resolveu tudo, obrigado pela ajuda funfou tudo direitinho.