'Aggiungo il riferimento Microsoft Scripting Runtime (Progetto > Aggiungi Riferimento > COM > Microsoft Scripting Runtime)
    
    Sub CopiaFiles(ByVal Origine As String, ByVal Destinazione As String)  

        Dim Copia As New Scripting.FileSystemObject 
        Copia.CopyFile(Origine, Destinazione & "\", True) 

    End Sub