Autor
Soy novato en esto y prové este code pero no se bien lo que hice, lo que intento ahora al principio es abrir un archivo con Open y copiar la primera linea y escribirla en el segundo...pero algo hago mal:
Código:
Option Explicit
Public filen
Public filen2
----------------------------
Private Sub cmd_Click()
End Sub
----------------------------
Private Sub cmdEncriptar_Click()
Dim inpu
Dim i
Open "filen" For Input As #1
Open "filen2" For Output As #2
Line Input #1, inpu
Write #2, 1, inpu
Close #1
Close #2
End Sub
--------------------------
Private Sub cmdExaminar_Click()
Dim filen
filen = dlgExaminar.FileName
dlgExaminar.ShowOpen
txtExaminar.Text = dlgExaminar.FileName
End Sub
-----------------------------
Private Sub lblExaminar_Change()
End Sub
------------------------
Private Sub Text1_Change()
End Sub
--------------------------
Private Sub cmdExaminar2_Click()
filen = dlgExaminar2.FileName
dlgExaminar2.ShowOpen
txtExaminar2.Text = dlgExaminar2.FileName
End Sub
-----------------------
Private Sub txtExaminar_Change()
End Sub
----------------------------
Private Sub txtExaminar2_Change()
End Sub
¿Como puedo hacer para copiar el contenido o parte de él en otro archivo?
Posteriormente me gustaría saber la forma de como puedo hacer para modificar el valor de cada byte...
Intento hacer una especie de crypter muy sencillo...
Saludos
En línea
