Dim source1 As String
Dim dest1 As String
source1 = "txt.txt"
dest1 = "C:\Documents and Settings\thegym\Escritorio\txt.txt"
FileCopy source1, dest1
MsgBox "Se ha realizado el respaldo satisfactoriamente", vbInformation, "Respaldo"