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
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)