VBAを使ってDir関数の入れ子作業をしたい

Question

AとBというフォルダには複数のエクセルファイルが入っていて、それぞれのファイルは
A1,A2,A3,A4,...
B1,B2,B3,B4,...
のようになっています。フォルダAとフォルダBの中に入っているエクセルファイルの数は同じです。
そんな感じの状況の中で、
A1の1列目をB1の10行目にコピーする。
A2の1列目をB2の10列目にコピーする。
・
・
・

という作業がしたいです。
最初にDir関数を入れ子に使って処理を行いましたが、Dir関数は入れ子に使えないようで失敗しました。
何かいい方法はありませんでしょうか？
簡単でもいいのでVBAを書いていただけるとより助かります。

宜しくお願いします。

Answer 1

Dir()使う場合は、一度ファイル名の一覧を配列に取り込んでから行えば出来ます。
Scripting.FileSystemObjectを使った方法を載せておきます。

Private Sub SampleFunc()
    Dim fA As Object
    Dim fB As Object
    
    With CreateObject("Scripting.FileSystemObject")
        For Each fA In .GetFolder("C:\Sample\A").Files
            For Each fB In .GetFolder("C:\Sample\B").Files
                '2文字目以降が一致
                If (Mid(fA.Name, 2) = Mid(fB.Name, 2)) Then
                    '必要な処理を書く。
                End If
            Next fB
        Next fA
    End With
End Sub

必ず数が決まってるのなら、Aフォルダだけ検索して、
フォルダ名＆ファイル名をBに置換してもいいかもしれませんが。
入れ子にしなければ、Dir()でもOKなんで。