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]Listar Arquivos em pasta definida.

    Compartilhe

    DCR2012
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 25/01/2013

    Listar Arquivos em pasta definida.

    Mensagem  DCR2012 em Ter 5 Fev - 9:49

    Galera,
    Bom Dia,
    Em meu BD tenho um Botão onde o Usuario clica, e ele cria uma pasta com o cod do processo, abre o o Bronwser para o usuario escolher o arquivo que deseja copiar para essa pasta e copia.
    Até ai ta funcionando Lindo.
    O que preciso é que se list os arquivos que estão nessa pasta criar em um campo do Form.

    Já dei uma pesquisada e não achei algo parecido.
    Tem como?

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Listar Arquivos em pasta definida.

    Mensagem  JPaulo em Ter 5 Fev - 10:13

    Ola Daniel;

    Tem de inserir uma ListBox desvinculada no seu form;


    Private Sub SeuBotao_Click()
    'Requer a referencia VBA, Microsoft Scripting Runtime, marcada
    Dim strDiretorio, strPasta, strFicheiros
    strDiretorio = "C:\SuaPasta\"

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set strPasta = fso.GetFolder(strDiretorio)
    Set strFicheiros = strPasta.files

    Me.List6.RowSourceType = "Value List"

    For Each file In strFicheiros
    Me.List6.AddItem (file.Name)
    Next
    End Sub



    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

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

    DCR2012
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 25/01/2013

    Re: [Resolvido]Listar Arquivos em pasta definida.

    Mensagem  DCR2012 em Ter 5 Fev - 10:24

    Grande Mestre.

    Perfeito joguei ele no current do form. Assim não preciso clicar em nada.

    Muito Obrigado.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Listar Arquivos em pasta definida.

    Mensagem  JPaulo em Ter 5 Fev - 10:31

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

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

    emacsabino
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 29/08/2011

    Re: [Resolvido]Listar Arquivos em pasta definida.

    Mensagem  emacsabino em Qua 15 Maio - 17:39

    Estou reabrindo o tópico pq quero aproveitar o tópico para perguntar se teria como nessa caixa de listagem que é gerada, clicar no nome que é listado e ao clicar o arquivo é aberto, no caso uma foto.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Listar Arquivos em pasta definida.

    Mensagem  JPaulo em Qui 16 Maio - 4:52

    Teste;


    Private Sub SuaLista_Click()
    Dim strDiretorio As String
    strDiretorio = "C:\SuaPasta\"
    FollowHyperlink strDiretorio & Me.SuaLista.Value
    End Sub



    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

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

    emacsabino
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 29/08/2011

    Re: [Resolvido]Listar Arquivos em pasta definida.

    Mensagem  emacsabino em Qui 16 Maio - 20:28

    Ok, deu certo, mas fiz de outra maneira, coloquei para ser exibido em uma imagem.picture

    serbarbosaportugal
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 47
    Registrado : 25/06/2014

    Re: [Resolvido]Listar Arquivos em pasta definida.

    Mensagem  serbarbosaportugal em Sab 17 Jan - 10:48

    Boas

    Como fizeste isto?
    "Em meu BD tenho um Botão onde o Usuario clica, e ele cria uma pasta com o cod do processo, abre o o Bronwser para o usuario escolher o arquivo que deseja copiar para essa pasta e copia."

    Podes postar isso? era mesmo o que precisava de adaptar para o meu bd e não consigo!

    Obrigado!

      Data/hora atual: Qua 7 Dez - 14:13