VBでFTPを使ってみる

急きょ、Webからアップロードされた添付ファイルをVBで選択しダウンロードする
プログラムを作ることに。

VBでFTPを使用するサンプルはネット上にたくさんあるので
それを参考にしたが、タイムアウトで動かない(悩）。

いろいろ調べていったら、サービスプロバイダーのQAに回答があった。
Windows ファイアウォールの関係で、FTPサーバー接続時にパッシブモードを
指定しないといけないらしい。

そこで、パラメーターにパッシブモードを追加したら、無事動きました。

下記ソースの太字の部分

hConnection = InternetConnect(hOpen, cstrServer, INTERNET_INVALID_PORT_NUMBER, _
        cstrUserName, cstrPassword, INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0)