FtpPutFile呼び出しでフリーズを回避するには (ID:90057)

名前

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

本文

こんにちは、ジムと申します。
ＶＢ６で下記のように記述してファイル転送しようとしましたが、FtpPutFileの
ところでフリーズしてしまいます。ファイルがいけないのかと思い。いろいろ
（テキストファイルの小さなもとか）試してみましたが、１分以上たっても応答
が返ってきません。サーバーの中をのぞいたら、ファイル名だけは作成されている
ようです。以前はこのプログラムでアップロードできていたのですが、なぜかでき
なくなってしまいました。どなたかなぜフリーズするのか。それとフリーズ対策
を教えて下さい。

'初期化
    lnghInet = InternetOpen(App.EXEName, _
                           INTERNET_OPEN_TYPE_DIRECT, _
                           vbNullString, _
                           vbNullString, _
                           0)
    If lnghInet <> 0 Then
        ' FTP接続処理
        lnghConnect = InternetConnect(lnghInet, _
                                     Text1.Text, _
                                     INTERNET_INVALID_PORT_NUMBER, _
                                     Text2.Text, _
                                     Text3.Text, _
                                     INTERNET_SERVICE_FTP, _
                                     0, _
                                     0)
        If lnghConnect <> 0 Then
            If FtpSetCurrentDirectory(lnghConnect, "TEST2") = False Then
        
                MsgBox "ディレクトリの移動に失敗しました."
                Exit Sub
            End If
        End If
        If lnghConnect <> 0 Then
            '指定したファイルをFTP転送する
            If FtpPutFile(lnghConnect, _
                          Text4.Text, _
                          Text4.Text, _
                          FTP_TRANSFER_TYPE_BINARY, _
                          0) <> 0 Then
                MsgBox Text4.Text & "をFTP転送しました"
            Else
                MsgBox "保存に失敗しました。"
            End If
        End If
    End If

←解決時は質問者本人がここをチェックしてください。

戻る