02/06/2010, 14:49
|
 | | | Fecha de Ingreso: noviembre-2009
Mensajes: 701
Antigüedad: 15 años, 1 mes Puntos: 53 | |
| Respuesta: Cómo Unir Partes De Un Mismo Archivo (Para Crear El Original)
Para que te hagas una idea, esto sería una posibilidad, puedes desarrollarla como quieras.
Dim Parte1 As String, Parte2 As String, Parte3 As String
Open "C:\Prueba.001" For Binary As #1
Parte1 = Space$(LOF(1))
Get #1, 1, Parte1
Close #1
Open "C:\Prueba.002" For Binary As #1
Parte2 = Space$(LOF(1))
Get #1, 1, Parte2
Close #1
Open "C:\Prueba.003" For Binary As #1
Parte3 = Space$(LOF(1))
Get #1, 1, Parte3
Close #1
Open "C:\Prueba.jpg" For Binary As #1
Put #1, 1, Parte1 & Parte2 & Parte3
Close #1
Saludos
__________________
Agradecer a quien te enseñó, es enseñar lo que de él aprendiste.
Recuerda: Decir gracias, poco cuesta y mucho vale ...
|