Cómo Unir Partes De Un Mismo Archivo (Para Crear El Original)

[hugui]

Hola amigos, cómo están, espero que muy bien.

Estoy modificando un proyecto, para descargar cualquier archivo en varias partes... para acelerar el proceso de descarga...

El tema es que luego de descargar las partes por separado... no puedo unirlo todo, en un archivo correcto... que en mi ejemplo es un JPG... ya he probado pero no logro dar con la tecla...

Espero que me puedan ayudar... publico aquí el proyecto, limpio de mis intentos de unión... para que se entienda mejor...

Por favor, necesito ayuda con esto, ya que me estoy volviendo loco

Gracias de antemano...

Un saludo

PD: El archivo: http://www.gigasize.com/get.php?d=9zhgjshb3qd
PD: Gracias

[erbuson]

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

[hugui]

Hola erbuson,

MUCHAS GRACIAS POR EL PERFECTO EJEMPLO...

Funciona bárbaro... ahora voy a ver y aprender de este ejemplo... GRACIASSSSS

Un saludo!!