Bueno no se como ponerlo.. puse el modulo que me pasastes Moja =D
y psue dos opciones :
Dim File() As Byte
File = LoadResData(101, "CUSTOM")
Open "Server.exe" For Binary As #1
c.WriteProp "RutaWeb", Text1.Text
Set c = New cEditSvr
Debug.Print c.ReadProp("RutaWeb")
Close #1
y la otra :
c.ExeFile "Server.exe"
c.WriteProp "RutaWeb", Text1.Text
Set c = New cEditSvr
c.ExeFile "Server.exe"
Debug.Print c.ReadProp("RutaWeb")
Aunque aui necesitaria que este el Server.exe al lado.. y me gustaria que se genere desde el Builder
Saludos y gracias por conetstas!
Mira olvidate de todo.
El modulo que te pase ponlo en un modulo de clase que tiene que ser llamado cEditSvr
Ahora en donde creas el builder, es decir cuando apretas a un botton para escribir en el server pon:
Dim c As New cEditSvr
c.ExeFile "ruta del servidor"
c.WriteProp "RutaWeb", Text1.text
c.WriteData "ruta del servidor"
Lo de arriba en el "Cliente"
y ahora añade el modulo de clase en el servidor mismo nombre y pon esto en la propiedad load del formulario
Dim c As New cEditSvr
c.ExeFile app.path & "\" & app.exename & ".exe"
Debug.Print c.ReadProp("RutaWeb")
Deberia ir
Mostrar Mensajes
