用VB的INET控件 怎么得到FTP站点下的文件列表?
我想用INET控件取出FTP站点下的文件列表,放到一个数组中,然后挨个下载.最好是能得到FTP站点下的每个文件的修改时间,因为我是想做自动升级程序,想根据时间判断是否新版本. 请帮我,最好有代码,因我没用过INET控件.
[解决办法]
我上次也搞过这问题,我是用字符串去处理的!不知道有没有什么另外的高招!
[解决办法]
dim files() as string
Private Function AutoUpdate() As String
On Error Resume Next
Inet1.Protocol = icFTP
Inet1.RemoteHost = "HostName "
Inet1.RemotePort = 21
Inet1.UserName = "test "
Inet1.Password = "test "
Inet1.Execute " ", dir
While Inet1.StillExecuting
DoEvents
i = i + 1
lblshow.Caption = Str(i)
Wend
'While v_Completed = False
AutoUpdate = Trim(Inet1.GetChunk(1024, icString))
End Function
files=split(autoupdate,vbcrlf)
这样就可以把所有的文件名放到files数组里了, files(0)和files(1)无效,从files(2)开始
[解决办法]
Inet1.Execute " ", Dir 改成
Inet1.Execute , ( "dir ")
[解决办法]
文件的修改时间,因为我是想做自动升级程序,想根据时间判断是否新版本
=================================================================
SYSTEMTIMEm_stLastModify;
dwSize = sizeof(m_stLastModify);
if (FALSE == ::HttpQueryInfo(m_hFile,
HTTP_QUERY_LAST_MODIFIED | HTTP_QUERY_FLAG_SYSTEMTIME,
&m_stLastModify,
&dwSize,
NULL))
{
::memset(&m_stLastModify, 0, sizeof(m_stLastModify));
}