Como unir archivos en uno solo
Hola,
¿Necesito saber si se puede juntar el contenido de dos o más archivos en uno solo?
Lo que quiero hacer es lo siguiente
Tengo varios archivos en formato .mdi
Solicitud
Ingreso
Identificación
Comprobantes
Y varios más
Lo que quiero obtener de resultado es que dentro de un solo archivo estén todos
O sease que un archivo llamado TOTAL estén las imágenes de la solicitud, ingreso, identificación, comprobantes
¿Esto se puede hacer en el Visual Basic que contiene Access?
Encontré esto pero no me da el resultado
Public Function juntar()
Dim s As String
Dim s1 As String
Dim destino As String
archivo1 = "C:\1\Solicitud.mdi"
archivo2 = "C:\1\Comprobante.mdi"
destino = "C:\1\destinofinal.mdi"
Dim Buffer() As Long
Open archivo1 For Binary Access Read As #1
Open archivo2 For Binary Access Read As #2
Open destino For Binary Access Write As #3
ReDim Buffer(1 To LOF(1))
Get #1, , Buffer
get#3 , , Buffer
ReDim Buffer(1 To LOF(2))
Get #2, , Buffer
Get #3, , Buffer
Close #1, #2, #3
End Function
Y me marca en la linea Get#3,, buffer
Se ha producido el error '75' en tiempo de ejecución:
Error de acceso a la ruta o el archivo
¿Este fue un ejemplo que encontré pero no se si es así como debo de proceder para juntar los archivos?.
Ojala y me puedas ayudar ya que si me es de mucha importancia.
1 respuesta
Respuesta de Jose Mari Madinabeitia
-1