读书人

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

发布时间: 2012-01-28 22:06:14 作者: rapoo

【重要求救】代码如下: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

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

读书人网 >VB

热点推荐