MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Variavel toma o valor de caminho (diretorio)

    Compartilhe

    RFPS
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 13
    Registrado : 22/04/2014

    [Resolvido]Variavel toma o valor de caminho (diretorio)

    Mensagem  RFPS em Sex 02 Maio 2014, 13:32

    Preciso de guardar o caminho numa variavel, mas nao estou a conseguir, o codigo abaixo deixa escolher o diretorio/pasta, sem selecionar os arquivos texto.

    Dim objFld As Object, objShl As Object
    Dim getdir As String
    Set objShl = CreateObject("Shell.Application")
    Set objFld = objShl.BrowseForFolder(0, TextToTitle, 0)

    If Not objShl Is Nothing Then
       getdir = objFld.self.Path
    End If

    Set objShl = Nothing
    Set objFld = Nothing
    Tentei executar esta linha, mas nao esta funcionando --> DiretorioArquivo = getdir


    preciso de atribuir o caminho para a variavel DiretorioArquivo, de maneira a que  consiga executar o seguinte codigo:
    dim DiretorioArquivo as string
    ArquivoTexto = Dir(DiretorioArquivo & "*.txt", vbArchive)


    Última edição por RFPS em Ter 06 Maio 2014, 09:57, editado 1 vez(es)

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Variavel toma o valor de caminho (diretorio)

    Mensagem  HARYSOHN em Sab 03 Maio 2014, 22:41

    Um exemplo extremamente simples
    Captura o nome do arquivo e caminho

    [Você precisa estar registrado e conectado para ver este link.]


    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Sex 09 Dez 2016, 07:43