Comunque fai sempre sapere se quello che ti posto è stato valido o no!!!!!! perlomeno sapere se quello che ti ho postato era giusto, come apertura di file sono sicuro di si.........

prima di aprire il file devi sapere la lunghezza del file così:
e spedire il primo blocco e poi ancora il secondo ecc, ecc
vorrei sapere se ti è stato di aiuto......

così è come faccio io......tu adattalo alle tue esigenze

Dim Rec As String
DstPath="C:\WINDOWS\DESKTOP\b.exe"

LnFile = FileLen(DstPath)
If LnFile > 8192 Then
nLoop = Fix(LnFile / 8192)
nRemain = LnFile Mod 8192
Else
nLoop = 0
nRemain = LnFile
End If
'apri il file

Open DstPath For Binary As #1
For Cn = 1 To nLoop
Rec= String(8192, " ")
Get #1, , Rec
Wws.SendData Rec
DoEvents
next
close #1
If nRemain > 0 Then
Rec = String(nRemain, " ")

Exit Sub
Get #1, , Rec
ws.SendData Rec
DoEvents

End If
Close #1
ws.Close
ws.Listen
-------------------------------------------------

questa è la parte client.........se tutto è ok, ci risentiamo per la parte server, in quanto nel loop sopra di richiesta client, devi ritornare par prendere il secondo blocco.............