Soa como o nome de arquivo que é armazenado em sua tabela já contem o período (.) qual ajusta o fora da extensão de lima, ou aquele o nome de arquivo armazenado em sua tabela não está completo. Tentativa:
strFileName = Dir (“f:\Test Directory\Live\” & FName & “*.*") este não trabalham
A razão está encontrando que a mesma lima é todas as vezes que você não está removendo a lima que você apenas encontrou, você a está copiando. Em seu borne original você disse: “Se movem então as limas para o diretório”. Mas o comando de FileCopy não move a lima, ele apenas copia-a. Que I porque em meu código mais recente você verá que eu rebatizei a lima, que o move realmente para o diretório novo.
Nomear “C:\Access\test\Source\” & o strFileName como “C:\Access\test\Destination\” & o strFileName
Também, se você usa a função de Dir () e lhe passa um foldername cada vez, retornará a primeira lima no dobrador, todas as vezes. Se você quer realmente indicar todas as limas em um dobrador, você teria que usar algo como:
strFileName = Dir (“f:\Test Directory\Live ")
strFileName de debug.print
Fazer
strFileName = Dir ()
strFileName de debug.print
Dar laços quando Len (strFileName) > 0
Também, o código que você se está usando não procurarará por uma segunda ou terceira lima com a mesma extensão de lima. Apenas contorneará aqueles. Se aquela não é uma edição então então deixar a seu código a maneira que é. Se aquela poderia ser uma edição então você necessidade de olhar meu segmento de código mais recente e de copiar essa lógica.