servidor tftp (no ftp) - Página 2 - VB-MUNDO

acalanto · #11 (**permalink**) 16-01-2008, 21:49:29

Pon DOEVENTS detrás del comando SendData.

mastersound · #12 (**permalink**) 16-01-2008, 22:56:24

ok ya esta puesto, una ultima cuestion, supongo que es facil pero por mas que pruebo de una forma u otra siempre me da error de "Type miscmatch" necesito que al abrir el servidor el programa coja el archivo llamado "vxWorks.st" pero si no esta ese archivo que coja este otro "SB4200bit" y si no estan ninguno de los 2 que coja este otro "SB4100.bit"

If App.Path & "\" & "vxWorks.st" Then

Open "vxWorks.st" For Binary As #1

Else

Open "SB4200.bit" For Binary As #1

Else

Open "SB4100.bit" For Binary As #1

End If

alguna idea? saludos

acalanto · #13 (**permalink**) 17-01-2008, 21:13:37

Aparentemente tienes un fallo en el código. Nunca un condicionante IF puede tener mas de un ELSE, tienes que sustituir los ELSES intermedios (salvo el último) por ELSEIF, es decir, un condicional compuesto tiene que decir SI <estosecumple> ENTONCES [Código ] SINOSI <estootrosecumple> ENTONCES [Código ] SINOSI <estootrosecumple> ENTONCES [Código ] SINOSI <estootrosecumple> ENTONCES [Código ] ENCUALQUIEROTROCASO [Código ] FINALDELCONDICIONAL

Espero que te aclare los conceptos y te resulte útil.

PD: Otro consejo para generar un código 'robusto' y libre de errores que se pueden y deben evitar. Antes de abrir un fichero por el canal #n, asegurate de que está cerrado con CLOSE #n.

mastersound · #14 (**permalink**) 18-01-2008, 15:21:49

ok ya esta todo terminado, muchas gracias por todo, saludos