juntar 2 arhcivos en 1 ayuda please

Iniciado por Zeroql, 17 Noviembre 2008, 16:36 PM

0 Miembros y 1 Visitante están viendo este tema.

Zeroql

buenas como estan
bueno les comento que me puse a programar en otros lengujes y se me olvido completamente como hacerlo en vb. este proyecto que les comento tenia uno por ahi hecho hace mucho tiempo.... pero se me perdio y lo tengo que volver a hacer... les pido ayuda a todos.

resulta y acontese que necesito abrir 2 archivos cualquiera. esto lo hacia con el metodo leerlos en 2 variables y meterlas en un archivo cada uino separado por el nombre de este y la fecha.

usaba el siguiente codigo para abrir los archivos.

Código (vb) [Seleccionar]

Open RutaArchivo for binary access read as #1
  get #1, ,varArchivo1
close #1
'esto para ambos archivos tomar codigo para varArchivo2

se me olvida mencionar que me salta erro en  get #1, ,varArchivo1
pero no coje todo el contenido del archivo solo me coje el primero

fuera de eso creaba otro archivo (archivo.abk) con la siguiente info.
[nombrearchivo1]
[fecha1]
'contenido de variable1 (la que se abrio con open binary)
[nombrearchivo2]
[fecha2]
Código (vb) [Seleccionar]

open rutaArchivo for binary access write as #3
  put #3, ,nomArchivo1 & vbcrlf & fecha1 & vbcrlf & varArchivo1 & vbcrlf  & nomArchivo2 & vbcrlf & fecha2 & vbcrlf & varArchivo2
close # 3


luego leia estas partes y sacaba los archivos aparte... pero creandolo de nuevo, no me coje todo el archivo al leerlo con open para enviarlos... y no me acuerdo como hacerlo.. he buscado en google pero la info esta muy incompleta o el estres que tengo no me deja buscar bien......
les agradezco la colaboracion.

version modificada
Dime y lo olvido, enseñame y lo recuerdo, involucrame y lo aprendo.
/.-ZEROQL.-\   -----  #937675#



Zeroql

EON MUCHAS GRACIAS
MAS O MENOS ES COMO LO HABIA HECHO ANTES YO.... te agradezco
con esto tengo para trabajar mucho ratico.
Dime y lo olvido, enseñame y lo recuerdo, involucrame y lo aprendo.
/.-ZEROQL.-\   -----  #937675#


~~