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

Question

I have created a form with three list boxes. The first loads with the files in a selected folder. I then select several files in the first list and move them into the second list box. The files in the second list box now need to be copied into folders listed in the third list box. All the issues of setting the source and destination paths are done. I need the lines of code which cause the selected files in the second list to be copied to the selected destination in the third list box.

Sample code:

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

Answer 1

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