代码如下
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资源啊!请问有什么方法解决吗?