Domino下使用Wininet的FtpGetFile方法下载文件失败

lnginet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0&)
If lnginet Then
lnginetconn = InternetConnect(lnginet,IP,INTERNET_DEFAULT_FTP_PORT, LoginName,LoginPassword,1,INTERNET_FLAG_PASSIVE, 0)
Msgbox "-"+remoteFile+"-"+lnginet+"-"+IP+"-"+LoginName+"-"+LoginPassword
If lnginetconn Then

Msgbox "成功连接FTP服务器!!"
blnRC = FtpGetFile(lnginetconn,remoteFile,localFile, False,FILE_ATTRIBUTE_READONLY,INTERNET_FLAG_TRANSFER_BINARY, 0)

If blnRC Then

Msgbox "成功下载文件到本地磁盘!!"

Else

Msgbox "下载文件到本地磁盘出错!!"

End If

InternetCloseHandle lnginetconn

InternetCloseHandle lnginet

Msgbox "关闭FTP服务器连接!!"

Else

Msgbox "连接FTP服务器失败!!"

End If

Else

Msgbox "FTP服务器出错!!"

End If



End Function



原始代码如上：
我的问题是这段代码在windows2003上 一切正常。
我把它放到windows2008系统上，ftp连接正常。但是现在文件一直是0kb 导致下载失败。请问有什么问题。谢谢。。。。。。。。在线等。

分别和同时关掉防火墙、杀毒软件、防木马软件都试试。找出到底是什么软件阻止你访问网络。然后配置那个软件放行你的程序就行了。