Private Sub CreaBat ()
On Error Goto Err_bat
Dim intCanal As Integer
intCanal = Freefile
Open "C:\Ruta\Archivo.bat" For Output As #intCanal
Print #intCanal "@ECHO OFF"
Print #intCanal "Copy c:\Ruta\*.* c:\OtraRuta\*.*"
Print #intCanal "Pause"
Print #intCanal "REM ya está"
Exit_bat:
On Error Resume Next
Close #intCanal
Exit Sub
Err_bat:
MsgBox Err.Description
Resume Exit_bat
End Sub