【重要求救】代码如下: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
[解决办法]
是否有可能是缓存的原因呢?