A lo mejor sera por eso que no termino mi Joiner
Tengo el Programa "Joiner"
Código
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.