si hai ragione ti posto la sub che inva il file al client dopo la richiesta
codice:
Private Sub invia(deta As String) 
On Error Resume Next 
Dim lung As String 
Dim fil As String 
fil = "C:\DownloadJS\" & deta 
'deta = Space$(65360) 
'lung = Space$(65360) 
Open fil For Binary As #1 
lung = Space$(1509)
 Label1.Caption = LOF(1) 
pb.Max = LOF(1)
 Me.Caption = fil 
Do While Not EOF(1) Get #1, , lung 
ws(socket).SendData lung 
attendi 
If pb.Value <= pb.Max Then
 pb.Value = pb.Value + Len(lung) 
End If
 Loop
 Close #1 
Me.Caption = "Fine" End Sub