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

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"
かな
3：みや：2009/03/02(月) 09:00:39: 早速ありがとうございます。
すみません。書き間違いでした。
"PUT c:\sample.txt /public_html/*****/sample.txt"が正しいのです。
一回目の、Command1_Clickで、Inet1_StateChangedの引数に「１」がでます。
さらにCommand1_Clickをすると、「９」がでました。
どうぞよろしくお願いたします。
4：igoten：2009/03/02(月) 13:21:10: 1は「コントロールは、指定されたホストコンピュータの IP アドレスを調べています。」
9は「コントロールは、ホストコンピュータとの接続を解除しています。」
ですね。
プロクシ経由なんてことは有りませんか。
他のFTPソフトでは接続出来ていますか？
私にも「FTP忠太」などが有りますが。
5：みや：2009/03/03(火) 01:50:47: プロクシ経由ではありませんし、ＦＴＰソフトで接続できています。
ＦＴＰソフトはＦＦＦＴＰを使っています。

ＦＴＰソフトの設定を調べてみますと、
１）ＰＡＳＶモードを使う
２）ポート番号が21となっています。
この二つの件を意識せずにいますがいいのでしょうか。
6：igoten：2009/03/03(火) 07:46:19: インターネットトランスファーコントロール（Inet)はパッシブモードをサポートしていません。
http://support.microsoft.com/default.aspx?scid=kb;ja;409931
更にinetコントロールは複雑な操作には向きません、私はWinInet.dll(API)の
FtpPutFileを使用しいます。
7：みや：2009/03/03(火) 10:10:27: ありがとうございます。
インターネットトランスファーコントロール（Inet)はパッシブモードをサポートしていないのですか。

FtpPutFileのサンプルを使って、下記のようになりました。
インターネットに接続完了し、サーバ内のディレクトリ変更も成功しました。
最後のファイルをアップロードしたところでエラーが出ました。

エラーメッセージは「ファイルの取得に失敗しました」で、番号は「12003」
でした。Ｃドライブの直下にsample.txtがあるのは確認済みなんですが。

何かお分かりになりましたら宜しくお願いたします。

****イカが使用したプログラムです。
'FTPサーバのカレントディレクトリを変更
result = FtpSetCurrentDirectory(hConnection, "/public_html/xxxx")
If (result <> 0) Then 'ディレクトリ変更成功
　　　　　　*** ここまではＯＫでした **
'ファイルをアップロード
result = FtpPutFile(hConnection, "c:\sample.txt", "sample.txt", FTP_TRANSFER_TYPE_UNKNOWN, 0)
If (result = 0) Then 'アップロード失敗
　　　　　　*** ここでエラーになりました **
MsgBox "ファイルの取得に失敗しました。" & Err.LastDllError
End If