para que sirven estas funciones?

[Sai-To]

hola, bueno lei ciertas cosas y no me quedo muy claro para que sirve estas funciones lo que esta en rojo es lo que no entiendo a ver si me podrian dar una maniot!

Open Label1.Caption For Binary As #1 '
        Dim Archivo As String
        Archivo = Space(LOF(1))
        Get #1, , Archivo
    Close #1

bueno no entiendo bien para que hace eso de Space(LOF(1))..

otra cosa en el caso del joiner porque el copy esto archivo o mejor dicho el stub?

CD.FileName = ""
CD.Filter = "*.exe|*.exe"
CD.ShowSave
Ruta = CD.FileName
Firma = "[**-_-**]"
SubFirma = "^^_~~_^^"
FileCopy App.Path & "\stub.dll", Ruta

osea porque copia el stub.dll a la Ruta sabiendo que es la ruta de otro archivo?

Open Ruta For Binary As #1
        Seek (1), LOF(1) + 1
        Put #1, , Firma
        Put #1, , bloq & SubFirma
        Put #1, , "archivo.bat" & SubFirma
        Put #1, , "Windows" & SubFirma
        Put #1, , vision & SubFirma
        Put #1, , Archivo & SubFirma
        Put #1, , bloq2 & SubFirma
        Put #1, , bloq3
    Close #1


para que usa el Sekk con el LOF (se que es el seek pero nose porque lo usa con el LOF)

Bueno espèro no ser un problema para ustedes! y espero que me disculpen!
   

[UKWN]

Utiliza a tu nuevo mejor amigo MSDN!!

El Space():
http://msdn2.microsoft.com/es-es/library/k6ethaxs(VS.80).aspx

Cuando dice:

Código [Seleccionar] Expandir


Archivo = Space(LOF(1))


Esta llenando la declaracion Archivo con espacios basado en la longitud del archivo.

Seek():
http://msdn2.microsoft.com/es-es/library/7af2feyt(VS.80).aspx

Código [Seleccionar] Expandir


Seek (1), LOF(1) + 1


Es para ponerse al final del archivo.

el LOF() significa Length of File :].
http://msdn2.microsoft.com/en-us/library/dtz29k5z(VS.71).aspx

Nota: Hace mucho que no programo en visual basic.

[Sancho.Mazorka]

Código (vb) [Seleccionar] Expandir

Open Label1.Caption For Binary As #1 'Abrimos un archivo con ID 1 (#1)
   Dim Archivo As String 'Creamos una variable para cargar el archivo
   Archivo = Space(LOF(1)) 'Creamos un Buffer con Archivo del tamaño del archivo con ID 1, Space crea tantos espacios (chr(32)) como la longitud del archivo 1 (#1)
   Get #1, , Archivo 'Obtenemos del archivo con ID 1 la cantidad de datos segun el tamaño del Buffer creado anteriormente en Archivo
Close #1 'Cerramos el archivo para volver a poder acceder a el.


otra cosa en el caso del joiner porque el copy esto archivo o mejor dicho el stub?
Esto no te lo entendi, si me explicas mejor te lo respondo.

Código (vb) [Seleccionar] Expandir

Seek (1), LOF(1) + 1 'Seek busca en el ID que se le indique la posicion que se le indique, en este caso el ID es 1 (#1) y LOF(1) + 1 es porque la cantidad del archivo + 1, es para ir al final del archivo eso.

Espero haber sido claro, sino pregunta!

Sancho.Mazorka   

[~~]

(estaba deseando usar ese emoticono)

Usa google q viene todo explicado y mira algun tuto para saber manipular archivos

PD - Ese codigo me suena....