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

发布网友发布时间：2022-05-10 23:26

共3个回答

热心网友时间：2023-11-13 22:30

知道那文件夹里的文件数吗？（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

热心网友时间：2023-11-13 22:31

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

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

热心网友时间：2023-11-13 22:31

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