inetを使用してのFTP (ID:83605)

名前

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

本文 ファイル転送もできていないのに、"ファイル転送が 成功しました。" というメッセージがでます。 INET を使用してのFTPのやり方ですが 以下でいいでしょうか。 '** inet 接続 With Inet1 .URL = "ftp://" & wURL .RequestTimeout = wTIMEOUT .UserName = wUSER .Password = wPASS .Execute , "Ascii" .Execute , "put " & wkFile & " " & wID & Format(Now, "YYYYMMDDhhmmss") Do While .StillExecuting = True DoEvents Loop .Execute , "close" .Execute , "QUIT" End With '** inet 解除 Inet1.Cancel MsgBox "ファイル転送が成功しました" 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 これだと不安です。 正しいかだれかわかりますか。 もし、おかしい場所があれば教えて下さい。