Winsockでファイルを送受信するには？ (ID:83650)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こちらの掲示板の過去ログを拝見して、Winsockを使用してファイルを送受信するコードを書いてみたのですが、 Dim sd() As Byte Dim fn As Integer fn = FreeFile() Open "C:\a.mp3" For Binary Access Read As fn ReDim sd(0 To LOF(fn) - 1) Get fn, , sd() Close fn Winsock.SendData sd() 送信部分はこんな感じになりました。 受信部分は、どのようにすればいいのでしょうか？ Putを使ったりしてみたのですが、どうもうまくいかなくて・・・。 よろしくお願いします。