Inet1.Protocol = icFTP
Inet1.URL = "ftp://7827.rrvv.net/"
Inet1.RemotePort = 21
Inet1.UserName = "7827" 'FTP空间账号
Inet1.Password = "123456" 'FTP空间密码
Inet1.Execute "", "get ftp.txt D:\ftp.txt" '下载ftp.txt到D盘Inet1.Execute "", "get 更新说明.txt" & App.Path & "更新说明.txt" '和下载更新说明.txt到D盘
right1 = Inet1.StillExecuting
Do While right1
right1 = Inet1.StillExecuting
DoEvents
Loop
Exit Sub如何同时利用INET1下载两个文件?这样加进去代码好像无效下载不了!
Inet1.Execute "", "get ftp.txt D:\ftp.txt" '下载ftp.txt到D盘Inet1.Execute "", "get 更新说明.txt" & App.Path & "更新说明.txt" '和下载更新说明.txt到D盘
Inet1.URL = "ftp://7827.rrvv.net/"
Inet1.RemotePort = 21
Inet1.UserName = "7827" 'FTP空间账号
Inet1.Password = "123456" 'FTP空间密码
Inet1.Execute "", "get ftp.txt D:\ftp.txt" '下载ftp.txt到D盘Inet1.Execute "", "get 更新说明.txt" & App.Path & "更新说明.txt" '和下载更新说明.txt到D盘
right1 = Inet1.StillExecuting
Do While right1
right1 = Inet1.StillExecuting
DoEvents
Loop
Exit Sub如何同时利用INET1下载两个文件?这样加进去代码好像无效下载不了!
Inet1.Execute "", "get ftp.txt D:\ftp.txt" '下载ftp.txt到D盘Inet1.Execute "", "get 更新说明.txt" & App.Path & "更新说明.txt" '和下载更新说明.txt到D盘
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货