Visual Basic - Copiar contenido de un fichero

hola.
Como es el codigo para seleccionar y copiar el contenido de un fichero en otro fichero.

Gracias.

Sub CopiarArchivo(Fuente As String, Destino As String)
Dim hFile%, hNew%
Dim sData$

hFile = FeeFile
hNew = hFile +1

Open Fuente For Binary As #hFile
Open Destino For Binary As #hNew

sData = String$(LOF(hFile),0)

Get #hFile, 1,sData
Put #hNew,1,sData

Close #hFile,#hNew
End Sub

Esto es verdaderamente rápido. Pero podrías usar la instrucción FileCopy de VB que es muchísimo más rápido:

FileCopy Fuente, Destino

Suerte.

Hola.
El caso es hago una copia de fichero que tiene correspondencia a una tabla de una B.D, ENTONCES LA COPIA SIGUE CON ESA correspondencia y eso es lo que no quiero como hago esa copia del fichero pero que no mantenga esa correspondencia.

GRacias.