tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： FTPサーバーのファイルコピーについて
投稿日： 2017/06/26(Mon) 13:39
投稿者： ぶん
VB6で作成したプログラムをWinXP環境下で使用していなのですが、
装置の老朽化に伴いWindows Embedded Standard 7のコンニューターに
セットアップしたのですが、Inetを使用したFTPサーバーのファイルコピーで
処理時間が長くなってしまいました。（数秒だったので数十分以上）

On Error GoTo ERRtrp
    With Inet1
        On Error GoTo ERRtrp
        .Execute , "CD DUMMY_DATA"
        'ビジーの間待つ
        MSG.Caption = "待ち１"
        Do While .StillExecuting = True
            DoEvents
        Loop
        '選択されたファイルをリモートホストへコピー
        .Execute , "PUT " & FNAME1 & " " & FNAME2
        'ビジーの間待つ
        MSG.Caption = "待ち２"
        Do While .StillExecuting = True
            DoEvents
        Loop
        MSG.Caption = "待ち完"
        '現在のディレクトリの一覧を要求
        .Execute , "DIR"
    End With
    
    MSG.Caption = "データ転送完了"
    Exit Sub

このような処理になっていますが、PUTまでは早いのですが
PUTの後のビジー待ちで５分程度の待ちで、DIRで数十分以上かかって
います。
どなたか、原因が分かる方は教えて頂けないでしょうか。

宜しくお願い致します。
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。