ＶＢ６でＩｎｅｔを使いサーバにファイルを書き込みたい - 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
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
8：igoten：2009/03/03(火) 12:04:20: InternetConnectの時に INTERNET_FLAG_PASSIVEは設定してますか？
多分指定してるんでしょうね。
後は、相手が２０００サーバーの場合は
sample.txt　-> /sample.txt
にする必要が有った気がします。
FTP_TRANSFER_TYPE_UNKNOWN　の代わりに　FTP_TRANSFER_TYPE_ASCII
を指定してみるとか。
そんな所しか今のところ思いつきません。
9：みや：2009/03/04(水) 04:25:55: ありがとうございました。サーバーに書き込むことができました。
INTERNET_FLAG_PASSIVEを設定していませんでした。
適切にご指導いただき大変感謝しています。今後もよろしくお願いたします。
10：＜削除＞：＜削除＞: ＜削除＞
11：＜削除＞：＜削除＞: ＜削除＞
13：ディーゼル財布：2013/10/23(水) 09:46:46: I’m gone to convey my little brother, that he should also visit this webpage on regular basis to take updated from most recent news.
ディーゼル財布 http://www.idahotherapyservices.com/