wininetを使用してFTPにてファイルをダウンロードするには？ (ID:90849)

名前

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

本文 はじめまして、いつも参考にさせていただいています。 現在、wininetのFtpGetFileを使用してサーバよりファイルをダウンロードしようとしているのですが、 FtpPutFileはうまくいくのですが、FtpGetFileの方はうまくいきません。 Putはできているので、原因はFtpGetFileにあるのでしょうが、 問題点がよくわかりません。 どこを直せばいいのか、ご教授願います。 環境はWinXPのVB.NETです。 よろしくお願いします。 ***** 以下コード ***** Public Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" ( _ ByVal hFtpSession As Integer, _ ByVal lpszRemoteFile As String, _ ByRef lpszNewFile As String, _ ByVal fFailIfExists As Boolean, _ ByVal dwFlagsAndAttributes As Integer, _ ByVal dwFlags As Integer, _ ByVal dwContext As Integer) As Boolean ======= 以下メイン処理 =========== Dim hOpen As Integer Dim hFtpSession As Integer Const INTERNET_FLAG_RELOAD As Integer = &H80000000 Const INTERNET_FLAG_TRANSFER_BINARY As Short = &H2S Const INTERNET_NO_CALLBACK As Short = 0 hOpen = InternetOpen("vb wininet", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0) hFtpSession = InternetConnect(hOpen, "FtpServer", INTERNET_INVALID_PORT_NUMBER, _ "FtpUser", "FtpPass", INTERNET_SERVICE_FTP, nFlag, 0) FtpGetFile(hFtpSession, "/xxx/xxxx/yyyy.ini", "c:\yyyy.ini", True, 0, _ INTERNET_FLAG_TRANSFER_BINARY Or INTERNET_FLAG_RELOAD, INTERNET_NO_CALLBACK)