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
Citar
Dim tamaño As String
tamaño = Space(????)
Open "C:\archivo.exe" For binary As #1
Get #1, , tamaño
Close #1
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.-
Cita de: Punk-rock en 13 Febrero 2006, 16:26 PM
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
¿Y que decia el error?
No me da ningun error porke simplemente no lo se hacer... :- :-
Espero que puedan ayudarme a resolver este problema..
Salu2
Hendrix
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.
Dim Tam as string * 15
tam = lenfile("2º archivo")
Con eso ya sabes donde empieza y donde acaba el segundo archivo.
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
Muchas gracias Kizar!!!! esto era justo lo que buskaba ;D ;D ;) ;)
yo tambien keria hacer un binder, pero por este problemo no lo kontinue, ahora lo podre kontinual trankilamente, Gracias ;) ;)
Salu2
Hendrix