[Resolvido]Mover quantidade X de arquivos de uma pasta para outra

Bom dia!

eu tenho uma pasta no meu servidor que recebe uma dezena de xml constante, tenho tambem uma rotina que os importa para meu sistema

no entanto fica muito pesado e gera um travamento na minha base de dados

A minha idéia era mover tipo de 10 em 10 para uma pasta determinada para fazer essa importação

hoje o sistema faz a leitura de mais de 100 arquivos de uma vez e gera um travamento

poderia ser em vba ou um Arquivo em .Bat

Olá LM,

Na minha opinião se está a fazer o travamento, deve verificar o código.

Se pretende fazer por "lotes" pode criar um contador e com o Do While ou mesmo um IF resolve.
Relativamente às pastas quando ficam muito cheias também é um problema.
Normalmente para contornar a situação costumo criar sub-pastas a partir da localização principal (do aplicativo) com

1 - Tipo de ficheiro
2 - Ano
3 - Ano-mes

Ficando por Exemplo: \\NomeServidor\ArquivoOficios\2020\2020-07\NomeDoficheiroArquivar.extensão
Em tempos ajudei um colega numa situação de "arquivo", não está muito limpo mas serve de estudo:
https://www.maximoaccess.com/t23752-resolvidoformulario-com-sub-formulario-continuo-paralelo

Para mover os ficheiros se tiver dúvidas, efetue uma "busca" no fórum ou veja por exemplo:
https://www.maximoaccess.com/t1862p25-resolvidomover-arquivos-atraves-do-access
https://www.maximoaccess.com/t24313-resolvidoexcluir-ou-mover-arquivo-externo-pelo-nome-e-data

Abraço

Obrigado ahteixeira,

consegui resolver com o exemplo em anexo, fiz umas modificações me atendeu bem

resolvido.

Olá LM,

Obrigado pelo retorno e partilha da solução, o fórum agradece.