Salve a tutti ho un problema con la ricezione di un file, il vb mi da continuamente un errore e non capisco da cosa dipende.
Private Sub passivo_DataArrival(ByVal bytesTotal As Long)
Dim DATI() As Byte
Call passivo.GetData(DATI)
If UBound(DATI) + LOF(FILEHANDLE) + 1 >= DIMENSIONEFILE Then
ReDim Preserve DATI(DIMENSIONEFILE - LOF(FILEHANDLE) - 1)
Put FILEHANDLE, , DATI
socket.SendData " +OK: FINE"
DoEvents
passivo.Close
Close FILEHANDLE
FILEDASALVARE = ""
Else
Put FILEHANDLE, , DATI
socket.SendData " +OK: RECV " & LOF(FILEHANDLE)
End If
End Sub
l'errore che mi da è: Errore di runtime 9 indice non compreso nell'intervallo.
sulla stringa
ReDim Preserve DATI(DIMENSIONEFILE - LOF(FILEHANDLE) - 1)
ho provato a cancellarlo e infatti il file lo ricevo ma logicamente Corrotto con la dimensione sballata.
Cosa può essere?
Rispondi quotando