VBA FSO - FileSystemObject para manipularmos arquivos + selecionar lista (tabela ou consulta) de arquivos a serem copiados

Encontrei uma ótima postagem do amigo JPaulo (FSO - FileSystemObject para manipularmos arquivos), porém gostaria de fazer com que a string abaixo, copiasse arquivos, os quais, seus nomes estão listados em uma consulta ou tabela?

Podendo ser apenas 1 arquivo ou 1000, de acordo com as informações contidos em uma determinada lista, tabela ou consulta.


'Copiar um arquivo se ele existir:

Sub CopiaFicheiro()
Dim fso
Dim file As String, sfol As String, dfol As String
file = "teste.xls" ' nome do ficheiro (Aqui, gostaria se informar uma lista de arquivos a serem copiados, como se fosse fazer um loop, pesquisa o primeiro e copia, o segundo, e assim por diante).
sfol = "C:" ' caminho inicial
dfol = "E:" ' caminho destino
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(sfol & file) Then
MsgBox sfol & file & " não existe!", vbExclamation, "Erro"
ElseIf Not fso.FileExists(dfol & file) Then
fso.CopyFile (sfol & file), dfol, True
Else
MsgBox dfol & file & " existente!", vbExclamation, "Sucesso"
End If
End Sub

Gostaria da colaboração dos amigos do Fórum.

Obrigado.

Diego

Faça um Loop antes do Nome do Ficheiro...

Dim fso
Dim file As String, sfol As String, dfol As String

'Inicie o Loop aqui>>>

file = 'coloque aqui o Campo onde tem o nome do arquivo
sfol = "C:" ' caminho inicial
dfol = "E:" ' caminho destino
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(sfol & file) Then
MsgBox sfol & file & " não existe!", vbExclamation, "Erro"
ElseIf Not fso.FileExists(dfol & file) Then
fso.CopyFile (sfol & file), dfol, True
Else
MsgBox dfol & file & " existente!", vbExclamation, "Sucesso"
End If
'Finalize o Loop aqui <<<

Olá a todos
Veja o FOR da mensagem n. 2 do nosso amigo JPaulo:
https://www.maximoaccess.com/t11655-resolvidolistar-arquivos-em-pasta-definida
Nunca esquecer a BUSCA aqui do fórum
Abraço

Opa, acabei de posta aqui também como fazer:
https://www.maximoaccess.com/t913-fso-filesystemobject-para-manipularmos-arquivos

Amigo Fabio, estamos pela mesma causa.
Aguardamos pela resolução e retorno do colega.
Abraço