MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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, 09: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, 05:57, editado 1 vez(es)
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em Sab 03 Maio 2014, 18: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: Qui 21 Set 2017, 16:31