'¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬
On Error Resume Next
Dim datos As String
ws.GetData datos 'obtiene los datos que llegan del WS
If datos = "enviar" Then 'si los datos que llegaron dicen "Enviar" entonces
progreso = True 'iniciamos el "Progreso" ??
ws.SendData filedata 'mandamos el archivo
End If
If datos = "recibido" Then 'si los datos que llegaron dicen "Recibido" entonces
ws.SendData "cierra" 'manda la orden para que se cierre el archivo
End If
If Left(datos, 7) = "archivo" Then 'si las primeras 7 leras de los datos dicen "Archivo" entonce
send = True 'manda
    filesize = Mid(datos, 8) 'el tamaño del archivo
    ws.SendData "enviar" 'envia la orden
    datos2 = ""
Else
    If Len(datos2) <> filesize And send = True Then 'si los datos que llegaron NO son el tamaño del archivo entonces
        datos2 = datos2 + datos
        pb.Min = 0 'pone la progressbar ? en 0
        pb.Max = filesize 'y el maximo es el tamaño del archivo
        pb.Value = Len(datos2)
        pb.Refresh
    End If
        If Len(datos2) = filesize And send = True Then 'si los datos que llegan SI es el tamaño del archivo entonces
        ws.SendData "recibido" 'manda la señala de que lo recibio
        pb.Value = 0
        cd.Filter = "Archivos " & ext & "| *" & ext
        cd.FileName = ""
        cd.ShowSave 'Muestra la ventana para guardar el archivo
        Open cd.FileName For Binary As #1 'abre el archivo para comenzar a guardarlo
        Put #1, 1, datos2 'introduce los datos
        Close #1 'se cierra
        End If
End If
'¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬