RE:Partir archivos en VB6
De poderse, se puede. No es veloz.
Abrí como #1, para Random, el archivo que querés partir con un len = 1
Abrí como #2, para Random, el archivo "primer fragmento"
Con un for - next o alguna verificación recorré el primer archivo hasta donde quieras llegar haciendo :
Get #1,Var de field1, número
Var de field2 = Var de field1
Put #2,Var de field2, número
número = número + 1
... y así hasta llegar a la posición final del primer fragmento, hacé close 2, y abrí un tercer archivo para el segundo fragmento, ahora necesitarás una nueva var contador para las posiciones del 3er archivo, ya que no serán coincidentes con las del 1ro, llamémosla num2:
num2 = 1
-------> desde aquí la reiteración
Get #1,Var de field1, número
Var de field3 = Var de field1
Put #3,Var de field3, número
número = número + 1
num2 = num2 + 1
... reiterar hasta llegar al final del archivo #1, o hasta completar un nuevo fragmento. Si hay más, repetir con un cuarto archivo, etc, etc, etc.
Recién cuando hayas terminado todos, hacé Close 1.
Para unirlos de nuevo hay que abrir el primero e irle agregando las lecturas del 2do, 3ro, etc.
Si no está claro avisame, te hago un ejemplo y te lo mando.
Se pueden economizar algunas líneas, pero así queda más claro.
Suerte.
