Per copiare un file:
codice:
Dim FileOrig As String
Dim FileDest As String

FileOrig = "C:\PROVA.txt"
FileDest = "C:\XXX\PROVA.txt"

FileCopy FileOrig, FileDest
SetAttr FileDest, GetAttr(FileOrig)
Per leggere ogni riga di un file e scriverla di seguito in un altro:
codice:
Dim FileOrig As String
Dim FileDest As String
Dim Riga As String

FileOrig = "C:\PROVA.txt"
FileDest = "C:\XXX\PROVA2.txt"
Open FileOrig For Input As #1
  Open FileDest For Append As #2
    Do Until EOF(1)
      Line Input #1, Riga
      Print #2, Riga
    Loop
  Close #2
Close #1
Per il resto non ho capito cosa devi fare.