[Resolvido]Capitura de Pastas e Ficheiros.

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

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

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