Macro to copy .xlsm files in folder and sub-folder to foldr C:\old pull files

I have a macro to copy .xlsm files in C:\pull and its sub-folders to C:\old pull files but no files are being copied

I adapted this from code on Ron De Bruin's Website


It would be appreciated if someone could check & amend my code

Please Login or Register  to view this content.

With late binding:

PHP Code: 

Sub Copy_Certain_Files_In_Folder()
'This example copy all Excel files from FromPath to ToPath.
'Note: If the files in ToPath already exist it will overwrite
'existing files in this folder
    Dim FSO As Object
    Dim FromPath As String
    Dim ToPath As String
    Dim FileExt As String
    Dim folder As Object
    Dim fil As Object

    FromPath = "C:\Pull"  '<< Change
    ToPath = "C:\Old pull Files"    '<< Change

    FileExt = "xlsm"  '<< Change
    'You can use *.* for all files or *.doc for Word files

    If Right(FromPath, 1) <> "\" Then
        FromPath = FromPath & "\"
    End If

    Set FSO = CreateObject("scripting.filesystemobject")

    If FSO.FolderExists(FromPath) = False Then
        MsgBox FromPath & " doesn't exist"
        Exit Sub
    End If
    Set Fromfolder = FSO.getfolder(FromPath)
    If FSO.FolderExists(ToPath) = False Then
        MsgBox ToPath & " doesn't exist"
        Exit Sub
    End If


    For Each fil In Fromfolder.Files
        If FSO.getextensionname(fil.Path) = FileExt Then
        fil.Copy ToPath & "\" & fil.Name
        End If
    Next fil
'    FSO.CopyFile FileExt, Destination:=ToPath & FileExt
    MsgBox "You can find the files from " & FromPath & " in " & ToPath

End Sub 


In the early binding case, did you select the Microsoft Scripting Runtime library in the References tab?

In the late binding case, find below the code that will look in the parent folder and the subfolders:

Please Login or Register  to view this content.

Thanks for the help-code works perfectly

I was not sure which reference in the References tab