inetコントロールについて教えてください (ID:83014)

名前

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

本文 inetコントロールを使用してテキストファイルをUNIXのマシンにftpで転送しようとしています。下記の様に作成したのですが、データは転送されるのですが、転送後にコマンドを終了するとタスクマネージャー上で”応答なし”の状態で止まってしまいます。また、改行コードを変換しようと思うのですがどのようにするのが良いのでしょう？初めてinetを使用するので色々調べたつもりですが上手くいきません。どなたか助けてください。お願いします。 Private Sub Command1_Click() With Inet1 .URL = "ftp://***.***.***.***" .UserName = "****" .Password = "****" .Protocol = icFTP Do While .StillExecuting = True DoEvents Loop .Execute , "put d:\work\****.txt /usr2/****.txt" End With IntReturn = MsgBox("終了しました", vbOKOnly) If IntReturn = vbOK Then Inet1.Execute , " quit" End End If End Sub