Cargar archivo sin conocer el tamaño

[Hendrix]

Weno, en mi programa quiero juntar dos archivos (el que creo, y otro a elegir), pero el problema es que del archivo que quiero saber no se el tamaño, komo puedo hacer para abrir este archivo??? les pongo un ejemplo:

Dim tamaño As String
tamaño = Space(????)
Open "C:\archivo.exe" For binary As #1
Get #1, , tamaño
Close #1

Si conociera el tamaño me meteria todo el archivo en la variable tamaño, pero komo se puede hacer para calcular este tamaño???

Espero me hayan etendio...

Salu2

Hendrix

[NYlOn]

Código [Seleccionar] Expandir


Dim tamaño As String
tamaño = Space(????)
Open "C:\archivo.exe" For binary As #1
Get #1, , tamaño
Close #1


Código [Seleccionar] Expandir


Dim tamaño As String
Open "C:\archivo.exe" For binary As #1
tamaño = LOF(1) 'LOF = Long Of File, largo del archivo...
Get #1, , tamaño
Close #1


Espero que te sirva, saludos.-

[Hendrix]

Weno, en mi programa quiero juntar dos archivos (el que creo, y otro a elegir), pero el problema es que del archivo que quiero saber no se el tamaño, komo puedo hacer para abrir este archivo???

Eso ya lo se, lo que intento hacer es poner otro archivo en el que kreo (program, edito, kodeo  ) y luego poder sacarlo y volverlo a crear...

Me expliko, para hacer un edit server, se introducen palabras al final del archivo, y luego el mismo programa las coge, lo que quiero hacer yo, en lugar de introducir palabras, es introducir un el kodigo haxadecimal de un archivo, para despues sacarlo y volverlo a componer....

yntente hacer esto:

miprograma = Space (xxx)
programa_adjuntado= Space (LOF(1) - xxx)

pero no me funcionaba, me daba error en programa_adjuntado.

Alguien me puede dar las solucion???

Salu2

Hendrix

[NYlOn]

¿Y que decia el error?

[Hendrix]

No me da ningun error porke simplemente no lo se hacer... :- :-

Espero que puedan ayudarme a resolver este problema..

Salu2

Hendrix

[Kizar]

Yo lo hice asi el blinder:
Primero el programa guarda en un archivo los 2 archivos(el tuyo y el archivo a juntar)
Despues al final de el archivo k as creado(k contien los 2 archivos) por en tamaño de el segundo archivo, como si fueran los datos de un troyano.

Código [Seleccionar] Expandir


Dim Tam as string * 15
tam =  lenfile("2º archivo")


Con eso ya sabes donde empieza y donde acaba el segundo archivo.

Código [Seleccionar] Expandir


Dim Principio, Fin, Tam as string
Tam = Cargamos los 15 ultimos caracteres de el archivo resultante(donde emos guardado el tamaño de el 2º archivo)
Principio = lenfile("archivo resultante") - tam - 15
Fin = lenfile("archivo resultante") - 15


Salu2

[Hendrix]

Muchas gracias Kizar!!!! esto era justo lo que buskaba   

yo tambien keria hacer un binder, pero por este problemo no lo kontinue, ahora lo podre kontinual trankilamente, Gracias 

Salu2

Hendrix