Вот код каторый я использовал
- Код: Выделить всё
'Шлём файл
Private Sub Command1_Click()
ws.Close
ws.RemoteHost = ip
ws.RemotePort = port
ws.Connect
End Sub
Private Sub Command2_Click()
Dim buffer$
Open App.Path & "\ff.txt" For Binary Access Read As #1
buffer$ = Space(LOF(1))
Get #1, , buffer$
Close #1
ws.SendData buffer$
End Sub
Private Sub Command3_Click()
ws.Close
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim ds As String
ws.GetData ds
MsgBox "" & ds
End Sub
'Получаем файл
Private Sub Form_Load()
ws.Close
ws.Listen
End Sub
Private Sub ws_Close()
ws.Close
ws.Listen
End Sub
Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
ws.SendData "Connectded"
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
ws.GetData buffer$
Open App.Path & "\h\file2.txt" For Binary Access Write As #1
Put #1, , buffer$
Close #1
End Sub
Может требуется мой код править и всё ! Help !