InetコントロールでHTTPファイル転送するには？

解決

---

はじめましてＩＲＹと申します。
インターネットトランスファコントロールを使ってＨＴＴＰ接続でファイル転送しようと思っています。
ファイル受信についはわかったのですが
ファイル送信についての方法がわかりません。
どなたかご教授願います。

ファイル受信のソース
            Dim s As String
            Dim strURL As String
            
            ' この URL は有効な URL であると仮定します。
            strURL = "http://testServer/test.txt"
        
           s = Inet1.OpenURL(strURL, 0)

           Open "d:\temp\test.txt" For Binary Access Write As #1
           Put #1, , s
           Close #1

編集 削除

---

受信はそんな面倒な事しなくても
Inet1.Execute "FTP://ftp.microsoft.com", _
"GET Disclaimer.txt C:\Temp\Disclaimer.txt"
の様にすればいいです。（msdnからの引用です）

送信はGETをPUTすればいいです。
詳しくはMSDN LIBRARYのINETコントロールの項目を
読んで下さい。キーワードでINETと打てば引っかかります。

編集 削除

---

訂正

誤：送信はGETをPUTすればいいです。

正：送信はGETをPUTにすればいいです。

編集 削除

---

とらきちさん、ありがとうございます。
Inet1.Execute "FTP://ftp.microsoft.com", _
"GET Disclaimer.txt C:\Temp\Disclaimer.txt"
でも、これ↑ってＦＴＰ接続なんでしょ？
ＨＴＴＰで実現させたいのですが．．．

編集 削除

---

結局、URLに引数を書いて、ブラウザを起動させることで解決しました。

編集 削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。