Aqui tienes un ejemplo:
Private Sub Command1_Click()
' Declaramos las variables, la primera contendrá la ruta donde
' se encuentra el archivo y la segunda contendrá la ruta a donde
' lo quieras copiar
Dim MiArchivo As String, Destino As String
' les asignamos un valor
MiArchivo = "Ruta de acceso"
Destino = "Ruta destino"
' y copiamos el archivo
FileCopy MiArchivo , Destino
End Sub
Ejemplo:
Private Sub Command1_Click()
Dim MiArchivo As String, Destino As String
MiArchivo="C:\Autoexec.bat"
Destino="C:\Archivos de Programa\Autoexec.bat"
FileCopy MiArchivo , Destino
End Sub
Es importante darle nombre al archivo que copiaste, ya sea un nuevo
nombre o el original, porque no basta con solo darle una ruta destino