RE:Copiar contenido de un fichero a otro nuevo.
Ejemplo para Copiar de un Fichero a Otro.
Private Sub cmdCopiar_Click()
FileCopy App.Path & "\Fichero.txt", App.Path & "\FicheroRes.txt" 'Si No Existe lo Crea y Si Existe Pasa la Informacion
MsgBox "Fichero Copiado", vbInformation
End Sub
Codigo para Crear un Fichero
Const RutaArchivoConexion = "C:\Fichero.Txt" 'Pones el Nombre del Fichero que quieres que se copie pero sin la informacion.
Private Sub cmdEjecuta_Click()
Dim ArchivoTxt As Variant, F As Variant
Set ArchivoTxt = CreateObject("Scripting.FileSystemObject")
Set F = ArchivoTxt.CreateTextFile(RutaArchivoConexion, True)
F.Close
MsgBox "Listo", vbInformation
End Sub