Option Explicit
 
Public Paket As String
Private Sub Form_Load()
    ws.RemoteHost = ws.LocalIP
    ws.Bind
    Hide
End Sub
 
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
    ws.GetData WSData, vbString
    If WSData = "READY" Then
                Dim HandleID As Integer
                HandleID = FreeFile
 
                Open Filename For Binary As #HandleID
 
                Paket = Space(FileLen(Filename))
 
                Get #HandleID, , Paket
                ws.SendData Paket
                Close #HandleID
 
    End If
End Sub

Option Explicit
 
Private Sub Form_Load()
    ws.RemoteHost = ws.LocalIP
    ws.Bind
    Hide
    ws.SendData "READY"
End Sub
 
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
    ws.GetData WSData, vbString
                Debug.Print "WSData = " & WSData
                Open App.Path & "\" & hWnd & ".dat" For Output As 1
                    Print #1, WSData
                Close 1
 
                Filename = fso.GetFileName(Filename)
                Name App.Path & "\" & hWnd & ".dat" As App.Path & "\" & Filename
                Debug.Print "»" & WSData
                'End
End Sub