bueno ya lo he encontrado, pero no se la solución XD. El problema viene al añadir el EOF.
Asi lo tengo :
Código: Seleccionar todo
With CD
.Filter = "Archivos Ejectutables (*.EXE)|*.exe"
.DialogTitle = "Selecciona el archivo a encriptar"
.ShowOpen
End With
Mas abajo:
If Check1.Value = 1 Then
eof = ReadEOFData(CD.FileName)
End If
With cf
.Filter = "Archivos Ejectutables (*.EXE)|*.exe"
.DialogTitle = "Selecciona donde guardar el archivo"
.ShowSave
End With
Después de juntar los archivos:
If Check1.Value = 1 Then
Call WriteEOFData(cf.FileName, eof)
End If
Me rompe el server al crearlo. Que es lo que falla?
