Pessoal tenho uma rotina que eu gostaria que fizesse feita com todos os arquivos da pasta "Teste".Exitem 40 arquivos nomeados de "1" a "40" no formato ".dat".
Eu gostaria que copiasse o arquivo "1.dat", passasse para a pasta "Pasta", renomeasse para "InputT" e rodasse ao executável.Ao finalizar o executável(é um executável que se fecha automaticamente quando termina sua simulação), rode o arquivo "2.dat" assim por diante até chegar no ultimo arquivo(no meu exemplo é o "40.dat").
Segue a rotina para o arquivo "1.dat"
Sub simula()
FileCopy "D:\usuarios\Daniel\Teste\1.dat", "D:\usuarios\Daniel\Pasta\1.dat"
Name "D:\usuarios\Daniel\Pasta\"1.dat" As "InputT.dat"
Shell "D:\Programa\programa.exe"
End Sub
Alguém pode me ajudar?
Obrigado!