El buffer es un tipo String, no he puesto antes el codigo del data arrival por que dudo mucho que sirva de algo, como ya he dicho, funciona perfectamente excepto con los paquetes grandes, de todos modos colocare esta parte
Dim Data As String
Dim sBuffer() As String
sBuffer = Split(Data, ",")
Select Case (sBuffer(0))
Case ("ld")
Select Case sBuffer(1)
Case "0"
Form3.List1.Clear
Call Form3.mostrararchivos(sBuffer, True)
Ws.SendData ("ld, ,1")
Case "1"
Form3.List2.Clear
Call Form3.mostrararchivos(sBuffer, False)
MsgBox "Bytes received: " & bytesTotal
Case "failed"
MsgBox "Error al listar archivos"
End Select
Podria ser por algun parametro interno de winsock que me limita los bytes a recibir? puedo modificarlo? o es mejor que divida los datos en dos paquetes?
En cualquier caso necesitaria saber cual es el maximo que puedo recibir por paquete.
PD: En el servidor estoy enviando con winsock y no me da problemas, por que el winsock de VB6 no puede recibir y el de C++ si puede enviar? (Esto en caso de que el error valla por hay)
Espero ayuda
Gracias