Microsoft Office Forums - View Single Post - Copy files from one folder to another using a list

rollis13 · 04-13-2021, 02:00 PM

Have you tried like this:

Code:

Option Explicit
Sub copyfiles()
    Dim m      As Variant
    Dim FileName As String
    Dim FileType As String
    FileType = ".txt"
    For m = 2 To 4
        FileName = Cells(m, 1).Value
        FileCopy "C:\Users\roberto.rodriguezram\Desktop\Source\" & FileName & FileType, _
                 "C:\Users\roberto.rodriguezram\Desktop\Destination\" & FileName & FileType
    Next
End Sub