代码如下
With Inet1
.URL = "ftp://" & ftpIP
.UserName = ftpName
.Password = ftpPwd
.RemotePort = ftpPort
.Execute , "cd " & ftpPath
Do
DoEvents
Loop While Inet1.StillExecuting = True
.Execute , "get " & fName & " " & App.Path & fPath & fName
Do
DoEvents
Loop While Inet1.StillExecuting = True
.Execute , "CLOSE" '关闭连接。
End With下载比较大的文件时,总是在
Do
DoEvents
Loop While Inet1.StillExecuting = True
里面做循环,占用大量CPU资源啊!请问有什么方法解决吗?
With Inet1
.URL = "ftp://" & ftpIP
.UserName = ftpName
.Password = ftpPwd
.RemotePort = ftpPort
.Execute , "cd " & ftpPath
Do
DoEvents
Loop While Inet1.StillExecuting = True
.Execute , "get " & fName & " " & App.Path & fPath & fName
Do
DoEvents
Loop While Inet1.StillExecuting = True
.Execute , "CLOSE" '关闭连接。
End With下载比较大的文件时,总是在
Do
DoEvents
Loop While Inet1.StillExecuting = True
里面做循环,占用大量CPU资源啊!请问有什么方法解决吗?
(不过现在既不清了)