Ayuda Joiner..!!

[Freeze.]

Hola, Queria saber si estoy bien informado

A lo mejor sera por eso que no termino mi Joiner 

Tengo el Programa "Joiner"

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim Tam As String
Dim Tam2 As String
Dim Dll As String
Dim Firma As String
Dim Firma2 As String
Dim xten As String * 3
Dim xten2 As String * 3
Dim Dll_c As String
Firma = "Freeze"
Firma2 = "Freeze2"
Dll = App.Path & "freeze.dll"
Cd.ShowOpen
Open Cd.FileName For Binary As #1
Tam = Space(LOF(1))
Get #1, , Tam
Close #1
xten = Right(Cd.FileName, 3)
Cd.ShowOpen
Open Cd.FileName For Binary As #1
Tam2 = Space(LOF(1))
Get #1, , Tam2
Close #1
xten2 = Right(Cd.FileName, 3)
Open Dll For Binary As #1
Dll_c = Space(LOF(1))
Get #1, , Dll_c
Close #1

Cd.ShowSave
Open Cd.FileName For Binary Access Write As #1
Put #1, , Dll_c & Firma
Put #1, , Tam & Firma
Put #1, , Tam2 & Firma2
Put #1, , xten & Firma2
Put #1, , xten2
End
End Sub

Ese lo hize yo, queria saber si estaba bien..!! :-)

Y el Stub nunca termino de hacerlo, lo borro y  lo comienzo pero nunca lo termino.

[~~]

Pues nada mas empezar yo ya le veo un fallo...

Código [Seleccionar] Expandir

Dll = App.Path & "freeze.dll"

Seria:

Código [Seleccionar] Expandir

Dll = App.Path & "\" & "freeze.dll"
Luego el resto esta bien, pro por q solo kieres juntar dos archivos, pero si kieres juntar infinitos mejor q no metas los datos asi... mejor q hagas algo de este estilo:

Código (vb) [Seleccionar] Expandir

Open Cd.FileName For Binary Access Write As #1
Put #1, , Dll_c & Firma
Put #1, , Tam  & Firma2 & xten & firma
Put #1, , Tam2 & firma2 & xten2
End

Asi sabes q entre las firmas principales estan los blokes principales, subdivididos a su vez por las firmas secundarias, obteniendo asi el archivo y su extension.

Si te esperas un poco (no se cuanto...) en la siguiente e-zine insecuriti saldrá un articulo mio de como crear joiners en VB para archivos infinitos, con code de ejemplo, explicacion y demas...

EDITO - El 1 de octubre sale la ezine, q lo acabo de mirar, asi q si no tienes mucha prisa...

[Freeze.]

Código (vb) [Seleccionar] Expandir


Dll = App.Path & "freeze.dll"
MsgBox Dll
End


Si ejecutas eso... el resultado es:

C:\freeze.dll

Asi que no hay error...

Código (vb) [Seleccionar] Expandir


Open Cd.FileName For Binary Access Write As #1
Put #1, , Dll_c & Firma
Put #1, , Tam  & Firma2 & xten & firma
Put #1, , Tam2 & firma2 & xten2
End


¿Y eso lo hago con archivos infinitos o de igual forma lo coloco?

[~~]

  No hay error por q esta en C:, prueva en cualkier otra carpeta.... asi q si que hay error...

¿Y eso lo hago con archivos infinitos o de igual forma lo coloco?

Para hacerlo con archivos infinitos tienes q hacer un bucle, mas q nada por q no sabes cuantos se kieren juntar xD

[Tughack]

Una cosa grave es no saber la sintaxis. Otra aun mas grave es no poder llegar a la sintaxis por los mensajes de error k vb tan amablemente nos da. Otra k es la peor de todas es contrariar lo k esta correcto.

Freeze, vaya personaje eres XDDD

Salu2

[HaDeS, -]

Para evitar eso de donde se pueda ejecutar el programa se puede hacer lo siguiente:

Código (vb) [Seleccionar] Expandir


Path = App.Path
if Right(Path,1)<>"\" Then Path = Path & "\"
Dll = Path & "freeze.dll"
Msgbox DLL


Saludos

[Freeze.]

1- Hades Gracias... por el truco
2- EON Gracias.. lo del bucle lo sabia pero me habias confundido
3- TugHack, emmm,..... ahhh... -.- (No se supone que estabas perdido )

Ahora coloco los resultados...!!