Скопируйте файлы .csv в каждую папку в цикле

Question

У меня есть набор папок, в каждой из которых есть по одному файлу .csv. Я хотел бы l oop через папки (имена папок увеличиваются на 1) и скопировать файл csv и вставить его в другую папку.

Мой код выглядит так, но ничего не делает:

    Sub Copy()

Dim MyFile2 As String
Dim myPath2 As String, myPath3 As String
Dim number As Integer

Dim extension As String
Dim asd As String
extension = "*.CSV"


For number = 1 To 9


     myPath2 = "C:\Users\asd\Documents\Stator_Teeth_Forces\approaches\doe_2\run__0000" & number & "\m_1\" & extension
     myPath3 = "U:\052\Radial Forces\-5"


    FileCopy myPath2, myPath3

Next number


End Sub