首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

【重要求救】代码如下:ftp下载有关问题

2012-01-28 
【重要求救】代码如下:ftp下载问题问题所在:1.下了同一个文件后,本地文件如被删除,不再下载服务器的东西2.服

【重要求救】代码如下:ftp下载问题
问题所在:1.下了同一个文件后,本地文件如被删除,不再下载服务器的东西
2.服务器更新同文件名的文件,再次下载后不是最新的数据,还是旧数据奇怪,服务器都已经变成最新的,客户端是从哪儿下的旧数据呢,代码如下,请各位帮忙,谢谢!'FTP2下载文件 
 
Public Function DownLoadFile2(sIp As String, sRemoteFileName As String, sLocalFileName As String, sUserName As String, sPassword As String)
 
  Dim ret As Boolean
 
  Dim hOpen As Long
 
  Dim hConnection As Long
 
  dwType = FTP_TRANSFER_TYPE_ASCII
   
  hOpen = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
 
  If hOpen <> 0 Then
 
  hConnection = InternetConnect(hOpen, sIp, 0, sUserName, sPassword, 1, INTERNET_FLAG_PASSIVE, 0)
 
  If hConnection <> 0 Then '连接正常
   

  ret = FtpGetFile(hConnection, sRemoteFileName, sLocalFileName, 0, 0, 1, 0)
  DownLoadFile = False
 
  End If
 
  InternetCloseHandle hConnection
 
  InternetCloseHandle hOpen
 
End Function

[解决办法]
是否有可能是缓存的原因呢?

热点排行