Access - Copiar tablavinculada en disco extraible

hola.
Tengo unas tablas vinculadas en la base de datos y quiero que se me copien en una memoria extraible.
Ja hago una copia en la C: pero necesito hacer otra en la memoria extraible que canvia de LETRA en un ordenador es D: y en otro I: .
de momento solo hago una copia en C: con este codigo: GRACIAS.

Private Sub Form_Close()
On Error GoTo Err_Copiar_Click ' copia de seguretat
Dim avui As String ' (hi ha d'haver les linies d'error)
Dim copiador As Object
Dim origen As String
Dim final As String

avui = Str(Year(Date)) & Str(Month(Date)) & Str(Day(Date))
Set copiador = CreateObject("Scripting.FileSystemObject")
origen = "C:DeclaracioIVA2TVdeclaracioIVA.mdb"
final = "C:CopiaDCopiaTau_(" & avui & ").mdb"

copiador.CopyFile origen, final, False
missatge = MsgBox("copia feta!")
Exit_Copiar_Click:
Exit Sub
Err_Copiar_Click:
missatge = MsgBox("Aquesta copia ja s'ha fet; Que tinguis un bon dia!")
Resume Exit_Copiar_Click

End Sub

Hola:
Si sigues estos pasos seguramente podrás conseguir lo que necesitas:

Primero de todo descárgate el ejemplo que hay en este Link, importa el único módulo que contiene hasta tu base de datos y lo dejas tal como está sin tocar nada.

http://es.geocities.com/ensolva/Descargas/BasesDatos/Access2000/LetraPenDriveyOtrasUnidades.zip

Luego en tu Procedimiento de Evento inserta el código que te pongo de forma que te quede entre " Set copiador = ....... y origen = "C:/Declaraciones ............... "

avui = Str(Year(Date)) & Str(Month(Date)) & Str(Day(Date))
Set copiador = CreateObject("Scripting.FileSystemObject")

' DESDE AQUI --------------------------------
Dim UnidadLetra As String
If PenExiste = True Then
UnidadLetra = Left(PenLetra, 1)
Else
MsgBox "No hay ningún PenDrive conectado.", vbInformation, "Unidad USB"
DoCmd.Close
End If
' HASTA AQUI ---------------------------------

origen = "C:/DeclaracioIVA2/TVdeclaracioIVA.mdb"
final = UnidadLetra & ":/CopiaD/CopiaTau_(" & avui & ").mdb"

En las rutas origen y final, cambia la barra inclinada a la derecha por la inclinada a la izquierda como es debido; yo las pongo así porque las correctas no se ven en este Foro. Como verás, la función del módulo "PenExiste" detecta si hay una unidad extraible conectada al Pc y si la hay, la función "PenLetra" averigua la letra asignada a dicha unidad y luego solo hay que anteponer la variable UnidadLetra que ha tomado su valor, a la Ruta en las variable "final"

Suerte y saludos
Enrique

hola Enrique.
Perdona la molestia.
Me funciona per fectament, pero la copia del pendrive tengo que remplazarla por la modificada si la coletilla de la fecha.

tiene que quedar asi "TVdeclaracioIVA.mdb".

Gracias.

Hola Josep:
Para reemplazar el archivo antiguo en el Pendrive por el nuevo, la solución es eliminar primero el antiguo con :
Kill UnidadLetra & ":/Carpeta En El Pendrive/TVdeclaracioIVA.mdb"

y luego copiar el nuevo de la forma que lo estabas haciendo con:
copiador.CopyFile origen, final, False

Recuerda cambiar las barras inclinadas a la derecha por las inclinadas a la izquierda.

Lo que no entiendo es porque dices que en el Pendrive el archivo debe grabarse SIN la coletilla de la fecha. En ese caso simplemente tienes que eliminar la parte de (" & avui & ") en la variable "final" para que no ponga su valor (la fecha) al final del nombre del archivo mdb.

Saludos
Enrique

Hola Enrique.

Es para el cuñado que un PC en la Herreria y otro en casa y vaya PCs, no entiende que tiene que canviarlos, problema tras problema y solo confia en el pendriver. Jo no tampoco lo entiendo.

Gracias.