FTPのGETが帰ってきません

ＰＥＫＯチャン 2003-09-05 19:56:00 No: 79312 IP: [192.*.*.*]

VBでFTPを行う必要があり一括でGetする処理を作りましたが、
INS64やADSL回線で実行していると、たまにFtpGetFileに行っ
たっきり帰ってこないことがあります。
コードの要所を記述すると以下のようになりますが、どこか間
違ってます？

    hInternet = InternetOpen(〜〜〜)
    hFTP = InternetConnect(hInternet, 〜〜〜)

    hFile = FtpFindFirstFile(hFTP, 〜〜〜)
    Do
        FtpGetFile(hFTP, 〜〜〜)
        lRet = InternetFindNextFile(hFile, 〜〜〜)
    Loop Until lRet = 0

    Call InternetCloseHandle(hFile)
    Call InternetCloseHandle(hFTP)
    Call InternetCloseHandle(hInternet)

編集削除

ＰＥＫＯチャン 2003-09-05 20:01:48 No: 79313 IP: [192.*.*.*]

すみません。
環境はWin2000pro-SP2(確かSP4でもそうだった)で, VB6-SP5のアプリです。

編集削除