ファイル転送中（Inet）に処理がフリーズしないには？ (ID:89190)

名前

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

本文 [OSのVER]:Windows 2000 [VBのVER]:VB 6.0 こんばんは。初めて投稿させていただきます(*^。^*) 現在、複数のUNIX上に存在するファイルをＣＳに転送したいと考えているのですが、 いくつかのファイルを転送した後に、StateChangedイベント内で 処理が止まってしまう感じになってしまっています。。。 （転送するファイルのサイズが関係しているのかと思いましたが、そうとも言えないようで・・・） 以下がソースの一部です。 （ソース自体が会社のＰＣにしかないので、かなり省略してしまっています・・・ごめんなさい） ========================================================= ' ＵＮＩＸサーバ接続が完了しているのを前提で↓ Inet1.Excecue "Get ---- "" Do While Inet1.StillExcecuting Do Events Loop ≪StateChangedイベント内≫ Select Case State Case icError ' エラー発生時 ' --- エラー処理 --- End Select ========================================================= 最終的には、エラー番号12002、タイムアウトで落ちてしまいます・・・ そこで、現在、以下の２つの方法を検討しています。 ① StateChangedイベント内の処理を変えて、 Excecueプロパティ実行後、フラグを監視するようにする。 （こんな感じでしょうか？↓） Do While blnSyoriFlg = False Select Case State Case icRequestCompleted blnSyoriFlg = True Case icError ' --- エラー処理 --- End Select Loop ② 使用するコントロール自体を変える。 Inetコントロールから、Winsock、またはAPIに変更する。 その際、以下の３処理が行えることが前提。。。 ・ＵＮＩＸ上に転送するファイルと同名のファイルが存在する場合、ファイルを削除する。 ・ファイルを転送する。 ・ＵＮＩＸに転送したファイルのサイズを取得する。 以上の２つの方法で、何かアドバイスをいただけないでしょうか？ この２つよりもっといい方法があれば教えて欲しいかもです。。。 お願いします(>_<)