Как передать файл от одного компа другому через локальную сеть. Если можно исходник... Буду очень благодарен.

Пробовал так по протоколу UDP, но нечего не вышло!


Программа отправитель.

Private Sub Command1_Click()

Dim buf As String

Open "c:\1.jpg" For Binary As #1

Get #1, , buf

Close #1

Send.RemoteHost = "127.0.0.1"

Send.SendData buf

End Sub

Private Sub Form_Load()

With Send
.RemotePort = 255
.Bind 254
End With

End Sub


Программа "приемник"

Private Sub Form_Load()

With Send
.RemotePort = 254
.Bind 255
End With

End Sub

Private Sub Send_DataArrival(ByVal bytesTotal As Long)

Dim buf As String

Send.GetData buf

Open "C:\2.jpg" For Binary As #2

Put #2, , buf

Close #2

MsgBox "Файл принят"

End Sub