adjuntar imagenes access 2003

[Taribo007]

Puedes uasra una funcion similar a esta para copiar las imagenes:

Public Function copiafichero_click(rutaorigenimportar As String,rutadestinoimportar As String)


Dim vr1 As Object
Set vr1 = CreateObject("Scripting.FilesystemObject")

vr1.CopyFile rutaorigenimportar , rutadestinoimportar

Set vr1 = Nothing
End Sub

Un saludo