Private Sub command1_click()
Dim ruta As String
Dim tamaño As Long
Dim buffer As String
ruta = "C:\prueba\d.zip"
'obligatorio de definir la variable si no da error
Open ruta For Binary Access Read As #1
tamaño = FileLen(ruta)
ws.SendData "enviar|" & ruta & "|" & tamaño & "|"
'abrimos el arxivo en modo binario lectura
buffer = Space$(25000)
'le decimos el espacio max que pode ocupar
For i = 1 To FileLen(ruta) / 25000
'hacemos la division de las veces que tendra que leer y enviar
Get #1, , buffer
'leemos
ws.SendData buffer
'enviamos
If FileLen(ruta) - Loc(1) <= 25000 Then
'como el for no utiliza los  decimales enviamos los restos
buffer = Space$(FileLen(ruta) - Loc(1))
'redimensianamos la variable con el num de bites que faltan
Get #1, , buffer
'leemos
ws.SendData buffer
'enviamos
End If
Next
Close #1
End Sub

Dim transfiriendo As Boolean
Dim ruta As String * 50
Dim tamaño As Long
Dim contador As Long
Dim datosg As String
Private Sub Ws_DataArrival(ByVal bytesTotal As Long)
   Dim datos As String, datos2() As String
   ws.GetData datos
   If Left(datos, 6) = "enviar" Then
   datos2 = Split(datos, "|")
   ruta = datos2(1) & "22"
   tamaño = datos2(2)
   transfiriendo = True
   datosg = Mid(datos, Len(datos2(1)) + Len(datos2(2)) + Len("enviar||||"))
   

   Else
   If Len(datosg) <> tamaño And transfiriendo = True Then
   datosg = datosg + datos
   End If
   If Len(datosg) = tamaño And transfiriendo = True Then
   Open ruta For Binary Access Write As #1
   Put #1, , datosg
   Close #1
   transfiriendo = False
   datosg = ""
   End If
   End If
End Sub

Private Sub command1_click()
Dim fragmento As Integer, ruta As String
Dim tamaño As Long
Dim contador As Long
Dim buffer As String
Dim archivo, lectura As String
archivo = FreeFile
contador = 0
ruta = "C:\hola.jpg"
Open ruta For Binary As #archivo
tamaño = FileLen(ruta)
ws.SendData "enviar|" & ruta & "|" & tamaño & "|"


fragmento = 8192 '8 kb


While contador < tamaño
    lectura = Input(fragmento, #archivo) 'Leer 8 kb del archiv
    ws.SendData lectura
    contador = contador + 8192
Wend
Close #archivo
End Sub

'Declaraciones globales:
Dim transfiriendo As Boolean
Dim ruta As String * 50
Dim tamaño As Long
Dim contador As Long
Private Sub Ws_DataArrival(ByVal bytesTotal As Long)
   Dim datos As String, datos2() As String
   ws.GetData datos
   If Left(datos, 6) = "enviar" Then
   datos2 = Split(datos, "|")
   ruta = datos2(1)
   tamaño = datos2(2)
   transfiriendo = True
end sub
   End If
   If contador < tamaño Then
   If transfiriendo = True Then
   Open ruta For Binary Access Write As #1
   Seek #1, LOF(1) + 1
   Put #1, , datos
   Close #1
   End If
   contador = contador + 8192
   End If
   If contador >= tamaño Then
   transfiriendo = False
   End If
End Sub

Aceptar más de una solicitud de conexión

El servidor básico comentado anteriormente sólo acepta una solicitud de conexión. No obstante, es posible aceptar varias solicitudes de conexión con el mismo control si crea una matriz de controles. En este caso, no necesita cerrar la conexión; basta con crear una nueva instancia del control (estableciendo la propiedad Index) e invocar el método Accept de la nueva instancia.

El código que se muestra a continuación presupone que existe un control Winsock en un formulario llamado sckServer y que su propiedad Index tiene el valor 0, por lo que el control forma parte de una matriz de controles. En la sección Declaraciones se declara una variable intMax a nivel de módulo. En el evento Load del formulario, intMax tiene establecido el valor 0 y la propiedad LocalPort del primer control de la matriz tiene el valor 1001. Después, se invoca el método Listen en el control, convirtiéndolo en el control "que escucha". A medida que llega cada solicitud de conexión, el código comprueba si el índice es 0 (el valor del control "que escucha"). Si es así, este control aumenta la variable intMax y utiliza ese número para crear una nueva instancia del control. Esta instancia se utiliza para aceptar la solicitud de conexión.



Código:
Private intMax As Long

Private Sub Form_Load()
   intMax = 0
   sckServer(0).LocalPort = 1001
   sckServer(0).Listen
End Sub

Private Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
   If Index = 0 Then
      intMax = intMax + 1
      Load sckServer(intMax)
      sckServer(intMax).LocalPort = 0
      sckServer(intMax).Accept requestID
      Load txtData(intMax)
   End If
End Sub