Copy files from one folder to another using a list

[Rolo18]

Hello,

I'm currently struggling to find a solution to a Macro to grab files from a source folder and copy them over the destination folder.

I will have the list of files I need copy over on A1, A2, A3... etc

I was trying to use this technique but I am getting an error run time error '438'



Any ideas what I have wrong, or does anyone have a similar working macro?

Sub copyfiles()
Dim m As Variant
Dim copier
Dim FileName As String
Dim FileType As String

    Set copier = CreateObject("Scripting.FileSystemObject")
    FileType = ".txt"
    For m = 2 To 4
    FileName = Cells(m, 1).Value

    copier.copyfiles "C:\Users\roberto.rodriguezram\Desktop\Source\" & FileName & FileType, "C:\Users\roberto.rodriguezram\Desktop\Destination\"
    Next
End Sub

[rollis13]

Have you tried like this:

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

[Rolo18]

Originally Posted by rollis13

Have you tried like this:

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

Thank you for the response. That worked perfectly!
I did only use it for a small sample (3 files)
But when I’m using it now for my actual list which is over 1000 names it is giving me an error which is a Run time error “53”.

I noticed the reason it’s giving me this error is because since my list is so long and there are some file names on my list that aren’t on a specific folder it is causing it to not just do the ones in the file that I need resulting in the crash. Is there a way to fix this issue?

[rollis13]

You can test if the file to be copied exists, like this:

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
        If Dir("C:\Users\roberto.rodriguezram\Desktop\Source\" & FileName & FileType) <> "" Then
            FileCopy "C:\Users\roberto.rodriguezram\Desktop\Source\" & FileName & FileType, _
                     "C:\Users\roberto.rodriguezram\Desktop\Destination\" & FileName & FileType
        End If
    Next
End Sub

[Rolo18]

Originally Posted by rollis13

You can test if the file to be copied exists, like this:

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
        If Dir("C:\Users\roberto.rodriguezram\Desktop\Source\" & FileName & FileType) <> "" Then
            FileCopy "C:\Users\roberto.rodriguezram\Desktop\Source\" & FileName & FileType, _
                     "C:\Users\roberto.rodriguezram\Desktop\Destination\" & FileName & FileType
        End If
    Next
End Sub

Thank you!

[rollis13]

Glad having been of some help .