Mi viene segnalato quest'errore di run-time mentre cerco di aprire i file in binario e quindi inviarli. Utilizzo il protocollo di connessione TCP con il winsock.

Vi posto il mio codice.

Server:

Private Sub Command2_Click()
Dim file As Byte
Open "C:\prova.txt" For Binary As #1
Get #1, , file
Winsock1.SendData file
End Sub

Client:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim file As Byte
Winsock1.GetData file
Put #1, , file
Close #1
End Sub

Quando ho effettuato il collegamento, e clicco il command2 mi da run-time error "52" Bad file name or number. Qualcuno potrebbe inviarmi una risposta?