ftp 问题！在线等，各位大虾都来啊！

Question

代码如下：
Private Sub Command5_Click()
With Inet1
    .URL = "ftp://172.21.100.10"
    .UserName = "lhm"
    .Password = "lhm"
    .Protocol = icFTP
    .RequestTimeout = 120
End With
Call Inet1.Execute(, "GET /laqx/public/earth.txt C:\earth.txt")
End Sub
但我想把/laqx/public/目录下所有的txt文件或所有文件下载下来，怎么办？用Call Inet1.Execute(, "GET /laqx/public/*.xt C:\*.xt")，出错。

Answer 1

Call Inet1.Execute(, "GET /laqx/public/*.xt C:\*.xt") 中的这个C:\*.xt不明确呀

Answer 2

我不用inet,不好用,建议用 powertcp ftp tool

Answer 3

下载多个文件，最好使用ftp的api来操作，所有的功能都可以自己控制的。大概步骤：InternetOpen("XML FTP CLIENT", 0, vbNullString, vbNullString, 0)
InternetConnect(lngINet, FTP_ADR, FTP_IPPORT, DSN_User, DSN_Pass, 1, 0, 0)
 FtpSetCurrentDirectory(lngINetConn, “路径”, 15))
FtpFindFirstFile(lngINetConn, "*.*", pdata, 0, 0)
InternetFindNextFile_FTP(lngHINet, pdata)
FtpGetFile(lngINetConn, CStr(strFileArray(ff)), CStr(vfilename & "\" & CStr(strFileArray(ff))), 0, 0, 2, 0)
 InternetCloseHandle lngINetConn
    DoEvents
    InternetCloseHandle lngINet

Answer 4

http://jinesc.6600.org/myweb/disp.asp?idd=256&room=10http://vbnet.mvps.org/index.html?code/internet/ftpdownloadcallback.htm以上两个网址供参考