Autor
Código:
For i = 1 To UBound(VLineas) - 1
Parametros() = Split(VLineas(i), "<*-*>")
VerPosicion = VerPosicion + Parametros(1)
''''''''''
Num = FreeFile
FilesV(i) = Space(Parametros(1))
Seek #1, VerPosicion
FilesV(i) = Input(Parametros(1), #1)
Open "C:\" & Parametros(0) For Binary As #Num
Put #Num, , FilesV(i)
Close #Num
VerPosicion = VerPosicion + Parametros(1)
Next i
Close #1
Todo funciona correctamente pero cuando doy la segunda vulta al bucle me dice que erro 52 numero de arcvhio incorrecto epr se supone que el fichero tiene que estar cerrado porque se ha cerrado de antes.
es muy raro He porbado ponido en vez de num un #2 y un #3 la pirmera vulta me lo hace bien la segunda me dice que error como si estubiera le file abierto pero esta cerrado porque lo cierro antes de que empiece el bucle otra vez
En línea
