ＶＢ６でＩｎｅｔを使いサーバにファイルを書き込みたい

1：みや：2009/03/01(日) 20:48:52: ファイルをサーバに転送したいので下記のようにプログラムを作りました。
環境はＶＢ６，サーバはレンタルサーバーです。
Command1をクリックしてもエラーは出ませんが、何のメッセージも帰りませんし、サーバーにファイルが転送できません。
このプログラムは「Visual Basic 逆引き５００の極意」のサンプルを使いました。
宜しくお願いいたします。

Private Sub Command1_Click()
With Inet1
.URL = "ftp://レンタルサーバのＵＲＬ" ' URL
.UserName = "*************" ' ユーザー名
.Password = "*********" ' パスワード

' サーバーにファイルを送信
.Execute , "PUT c:sample.txt /public_html/*****/sample.txt"
Do While .StillExecuting = True
DoEvents
Loop
End With
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim vntGetData As Variant ' 受信データ

' データ（コマンドの結果）を取得する
If State = icResponseCompleted Then
vntGetData = Inet1.GetChunk(1256, icString)
MsgBox vntGetData
End If
End Sub
2：igoten：2009/03/02(月) 07:55:21: ぱっと見たとき、単なる書き間違いかもしれないけど、
.Execute , "PUT c:sample.txt /public_html/*****/sample.txt"
は
.Execute , "PUT c:\sample.txt /public_html/*****/sample.txt"
かな

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）

掲示板管理者へ連絡無料レンタル掲示板