excel vba使用列表框移动多个文件

我创建了一个包含三个列表框的表单。第一个文件夹加载选定文件夹中的文件。然后在第一个列表中选择几个文件，并将它们移动到第二个列表框中。现在需要将第二个列表框中的文件复制到第三个列表框中列出的文件夹中。设置源路径和目标路径的所有问题都已完成。我需要将第二个列表中的选定文件复制到第三个列表框中的选定目标的代码行

示例代码：

FileToCopy = FileSourceDirectory & lstSelectedFiles.Value
DestinationFolderName = UserRepositoryDirectory & lstRepositoryFolders
CopiedFile = DestinationFolderName & "\" & lstSelectedFiles.Value
Set fso = VBA.CreateObject("Scripting.FileSystemObject")
FileCopy FileToCopy, CopiedFile Unload frmCopyFileToRepository

---

到目前为止你试过什么？什么不适合你？更准确地说，您想要回答的问题是什么？在创建

FileSystemObject

之后，您可能会使用

MoveFile

。移动单个文件不是问题。我有代码，可以一次复制一个文件。FileToCopy=FileSourceDirectory&lstSelectedFiles.Value DestinationFolderName=UserRepositoryDirectory&lsrepositoryfolders CopiedFile=DestinationFolderName&“\”&lstSelectedFiles.Value Set fso=VBA.CreateObject（“Scripting.FileSystemObject”）FileCopy，CopiedFile Unload frmcopyFileToRepository我需要能够选择一些文件（从多选列表框中）并同时移动所有文件。我已经对从完整列表（第一个列表框）中选择文件并将其移动到第二个列表框进行了编码。我需要代码将第二个列表框中的所有文件复制到目标文件夹

Dim i As Integer
 For i = 0 To lstSelectedFiles.ListCount - 1

  FileToCopy = FileSourceDirectory & lstSelectedFiles.List(i)

      CopiedFile = DestinationFolderName & "\" & lstSelectedFiles.List(i)

  Set fso = VBA.CreateObject("Scripting.FileSystemObject")

FileCopy FileToCopy, CopiedFile

Next i