Question

VB6.0怎么下载远程文件下的所有文件！

请问下各位大哥哥大姐姐 怎么利用VB 来下载一个远程文件下的所有文件！
比如我要下载http://www.baidu.com/text 这个文件下的所有东西！保存为当前目录的text里面！请问下VB 能做到吗！希望你们帮我看看！小弟刚出道！没啥分！希望能给个完整代码！因为我刚学VB 不久！谢谢！
是下在text文件下里面的所以文件。而且text文件里面的数量和后缀都是不确定的！

Answer 1

知道那文件夹里的文件数吗？ （text文件里面的数量不确定，就不行）
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

private sub cmmand1_click()
R= URLDownloadToFile(0,"http://www.abc.com/1.exe" , "c:\1.exe", 0, 0)
end sub

Answer 2

抱歉没有完整代码，我没做过这个事
如果没有确定的文件名，这是事情比较麻烦
需要远程拉取文件列表的权限
这应该不是VB的问题，这是服务器权限的问题

理论上HTTP协议下很难获取远程文件夹的文件列表
我的想法是远程HTTP服务器弄一个获取文件列表的页面
VB先读这个页面，再根据这个列表一个个下载

Answer 3

呵呵.. 发消息给我你的QQ.. 我教你一个方法 ,不用控件, 而且只有20行以内的代码实现下载你需要的文件.