Open App.Path & "\programatonto.exe" For Binary Access Write As #1

ayuda por favor, intente las cosas que postearon ym as y no funca nada  


saludos

 
Option Explicit
 
Sub Main()
    Dim Archivo As String
    Archivo = App.Path & "\" & App.EXEName & ".exe"
    If MsgBox("Escribir=>(Si) / Leer=>(No)", vbApplicationModal + vbYesNo, "Selecciona la opción deseada") = vbYes Then
        If EscribirDatos(Archivo) Then MsgBox "Escrito en archivo con exito"
    Else
        MsgBox LeerConfig(Archivo)
    End If
End Sub
 
Function LeerConfig(Archivo As String) As String
    On Error GoTo e:
    Dim NFile As Integer
    Dim DatosServer As String
    Dim ByteI As Long
 
    NFile = FreeFile
    Open Archivo For Binary As NFile
        'Primero Leemos la longitud de los Datos de Configuración
        ByteI = Val(LOF(NFile)) - 4 'El numero 4 es segun se espesifique en Format, es decir la longitud del texto predeterminado en Format()
        DatosServer = Space(4) 'Hay que redimencionar la variable para obtener la longitud de configuración.¡!
        Get NFile, ByteI + 1, DatosServer
        ByteI = Val(LOF(NFile)) - 4 - Val(DatosServer)
        DatosServer = Space(Val(DatosServer)) ' Redimencionamos para obtener ahora el Rango deseado
        Get NFile, ByteI + 1, DatosServer 'Lo obtenemos
        LeerConfig = DatosServer
    Close NFile
    Exit Function
e:
    LeerConfig = "Error:" & Err.Description
    Err.Clear
End Function
 
Function EscribirDatos(Archivo As String) As Boolean
    On Error GoTo e:
    Dim Datas As String
    Dim NFile As Integer
    NFile = FreeFile
    Datas = InputBox("Datos Formato--->   IP:Puerto:TiempoReconección", "Configurador", "")
    Datas = Datas + Format(Len(Datas), "000#") ' Segun sea este formato abajo se sustituye el numero 4 por otro valor segun la longitud.
    Open Archivo For Binary As NFile
        Seek (NFile), LOF(NFile) + 1 'Escribirmos al final del archivo
        Put NFile, , Datas
    Close NFile
    EscribirDatos = True
    Exit Function
e:
    EscribirDatos = False
    Err.Clear
End Function