Vba 从excel宏将文件夹从一个位置移动到另一个位置

我需要帮助将完整文件夹从一个路径移动到另一个路径，我的要求是：

我在列

A2

到

A51

中有路径列表（不同路径）作为源位置，在列

B2

到

B51

目标位置中，我想将列

A1

文件夹移动到

B1

目标位置

---

在列

A

中，列出了100个不同的路径，在列“B”中，有一个文件夹应移动的目标路径。

您需要创建一个vba宏，该宏在列A中循环

---

然后，它应该从它旁边的列中获取值，并使用它调用。

您正在寻找移动文件夹，因此下面是一些将原点移动到目标的代码

Sub MoveModules()

  'Add a Reference to Microsoft Scripting Runtime

  'Column A should have a path like C:\test\AAA
  'Column B should have a path like D:\test\AAA

  'The move would MOVE C:\test\AAA to D:\test\AAA

  Dim rng As Range
  Dim aData As Variant
  Dim FSO As Scripting.FileSystemObject
  Dim iCounter As Long
  Dim sOrigin As String
  Dim sTarget As String

  'Get the intersection of columns A and B and the usedrange
  Set rng = Range("A:B " & Sheet1.UsedRange.Address)

  If Not rng Is Nothing Then

    aData = rng
    Set FSO = New FileSystemObject

    For iCounter = LBound(aData) To UBound(aData)
      sOrigin = aData(iCounter, 1)
      sTarget = aData(iCounter, 2)
      If FSO.FolderExists(sOrigin) Then
        If Not FSO.FolderExists(sOrigin) Then
          FSO.MoveFolder sOrigin, sTarget
        Else
          MsgBox "Target folder already exists at '" & sTarget & "'"
        End If
      Else
        MsgBox "Can't find Source folder '" & sOrigin & "'"
      End If
    Next iCounter
  End If
End Sub