>>858
Dim fn as String
fn = Dir(ThisWorkbook.Path & "\")

Do While Not fn = ""
　If Not fn = ThisWorkbook.Name Then
　　Name ThisWorkbook.Path & "\" & fn As "フォルダBのパス" & "\" & fn
　End If
　fn = Dir()
Loop

これでどうかな
実験してないのでこけるかも知れない