|
Título: Cómo Unir Partes De Un Mismo Archivo (Para Crear El Original) Publicado por: ProgramadorVB en 2 Junio 2010, 20:49 pm 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 Título: Re: Cómo Unir Partes De Un Mismo Archivo (Para Crear El Original) Publicado por: ProgramadorVB en 3 Junio 2010, 01:05 am Hola, ya me respondieron... ésta es la solución:
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 Un saludo y gracias. |