inetコントロールを使用したFTP送信の質問その1

質問

ローカルにあるファイルを、FTPサーバに送信するプログラムを作成しました。
inetコントロールを使用して、以下のようなプログラムを組みました。

Private sub ftp()
　Inet1.Protocol=icFTP
　Inet1.Url="ftp://xxx.xxx.xxx.xxx/"
　Inet1.UserName="aaaa"
　Inet1.Password="bbbb"
　Inet1.Execute , "SEND x:\xxx\xxx.txt xxx/xxx.txt"
End sub

Private sub Inet1_StateChanged(Byval State As Integer)
Dim sMsg As String
　Select Case State
　　Case icRequestSent
　　　sMsg = "送信完了"
　　　TCall LogWrite(sMsg) ログをファイルに書く（自作関数）
　　Case icError
　　　sMsg = Inet1.ResponseCode & " " & Inet1.ResponseInfo
　　　Call LogWrite(sMsg) エラーログをファイルに書く（自作関数）
　End Select
End Sub

ファイルを複数送信するため、「sub ftp()」は複数回呼び出されます。
上記プログラムにCLOSEコマンドとCANCELメソッドを追加して、以下のようにしたほうがよいのでしょうか？
CLOSEコマンドとCANCELメソッドの使い方がよくわからず、悩んでいます。

Private sub ftp()
　Inet1.Protocol=icFTP
　Inet1.Url="ftp://xxx.xxx.xxx.xxx/"
　Inet1.UserName="aaaa"
　Inet1.Password="bbbb"
　Inet1.Execute , "SEND x:\xxx\xxx.txt xxx/xxx.txt"
　Inet1.Execute , "CLOSE"
End sub

Private sub Inet1_StateChanged(Byval State As Integer)
Dim sMsg As String
　Select Case State
　　Case icRequestSent
　　　sMsg = "送信完了"
　　　TCall LogWrite(sMsg) ログをファイルに書く（自作関数）
　　Case icError
　　　sMsg = Inet1.ResponseCode & " " & Inet1.ResponseInfo
　　　Call ErrLogWrite(sMsg) エラーログをファイルに書く（自作関数）
　　　Inet1.Cancel
　End Select
End Sub

回答No.1

OKWebAdmin

管理者より：
続きの質問があるのでそちらをご参照下さい

参考URL：

http://www.okweb.ne.jp/kotaeru.php3?q=338444