MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Capitura de Pastas e Ficheiros.

    wsenna
    wsenna
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    [Resolvido]Capitura de Pastas e Ficheiros. Empty [Resolvido]Capitura de Pastas e Ficheiros.

    Mensagem  wsenna 4/9/2014, 07:55

    Seguindo os ensinamentos do Grande Mestre JPaulo.

    http://maximoaccess.forumeiros.com/t14255-resolvidoler-diretorios

    Num tópico anterior, acima, este Amigão sugeriu que eu puzesse no evento ao clicar de um botão de comando o seguinte:

    Private Sub Comando1_Click()
    If MsgBox("Você está seguro de executar esta ação no momento ?    " & Chr(13) & "Saiba que irá alterar toda a base de dados.   ", vbYesNo, "  InfoBasic Smart System") = 6 Then
    MsgBox "Essa operação pode demorar alguns minutos, por favor, Aguarde ...    ", , "  InfoBasic Smart System"
    Call ContaFicheirosExtraiNome("C:\Medicina\", True)
    Me.Refresh
    Else
    MsgBox "A ação de capitura foi cancelada pelo usuário.   ", vbInformation, "  InfoBasic Smart System"
    End If
    End Sub

    O resultado funfou maravilhosamente bem, contudo, preciso importar mais ficheiros para a minha tabela de outros cursos como C:\Direito\ etc.
    Não haveria uma forma de através de uma combox ou caixa de texto em que eu digitasse o caminho e o código acima fosse executado?
    O que estou a fazer é alterar o caminho no próprio código do botão de comando toda vez que tenho que capiturar ficheiros de outros cursos.

    Abraços, WSenna


    Última edição por wsenna em 4/9/2014, 12:21, editado 1 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Capitura de Pastas e Ficheiros. Empty Re: [Resolvido]Capitura de Pastas e Ficheiros.

    Mensagem  Alexandre Neves 4/9/2014, 12:00

    Bom dia, Mestre
    Private Sub Comando1_Click()
    dim strCaminho as string
    If MsgBox("Você está seguro de executar esta ação no momento ? " & Chr(13) & "Saiba que irá alterar toda a base de dados. ", vbYesNo, " InfoBasic Smart System") = 6 Then
    MsgBox "Essa operação pode demorar alguns minutos, por favor, Aguarde ... ", , " InfoBasic Smart System"
    strcaminho=inputbox("Introduza o caminho dos ficheiros.")
    Call ContaFicheirosExtraiNome(strcaminho, True)
    Me.Refresh
    Else
    MsgBox "A ação de capitura foi cancelada pelo usuário. ", vbInformation, " InfoBasic Smart System"
    End If
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    wsenna
    wsenna
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    [Resolvido]Capitura de Pastas e Ficheiros. Empty Re: [Resolvido]Capitura de Pastas e Ficheiros.

    Mensagem  wsenna 4/9/2014, 12:18

    Grande Alexandre, bom da.

    Amigão, muito legal.
    Como diz nosso Amigo JPaulo, Funfou perfeito.

    Fiz apenas algumas modificações com o intuito de mostrar ao usuário que os ficheiros estavam sendo importados, veja:

    Private Sub Comando1_Click()
    Dim strCaminho As String
    If MsgBox("Você está seguro de executar esta ação no momento ? " & Chr(13) & "Saiba que irá alterar toda a base de dados. ", vbYesNo, " InfoBasic Smart System") = 6 Then
    MsgBox "Essa operação pode demorar alguns minutos, por favor, Aguarde ... ", , " InfoBasic Smart System"
    strCaminho = InputBox("Introduza o caminho dos ficheiros.")
    Me.Caption = "      Por favor, aguarde ..."
    Call ContaFicheirosExtraiNome(strCaminho, True)
    Me.Refresh
    MsgBox "Arquivos importados com sucesso.   ", , "  InfoBasic Smart System"
    Me.Caption = "      InfoBasic Smart System"

    Else
    MsgBox "A ação de capitura foi cancelada pelo usuário. ", vbInformation, " InfoBasic Smart System"
    End If
    End Sub

    Abraços, WSenna

    Conteúdo patrocinado


    [Resolvido]Capitura de Pastas e Ficheiros. Empty Re: [Resolvido]Capitura de Pastas e Ficheiros.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 16:19