请问Internet Transfer有关Inet控件的使用？

Question

不能一路 execute 下去要在 StateChanged 中判断 icResponseCompleted

Answer 1

Private Sub Command2_Click()
With Inet1
  .URL = "ftp://208.11.1.1"
  .UserName = "root"
  .Password = "hand1"
  .Execute , "get chb.txt c:\chb.txt"
  ' .Execute , "cd /"
End With
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
   Dim vtData As Variant
   Select Case State
   Case icResponseCompleted '12
      Inet1.Execute , "cd /"
   End Select
End Sub

Answer 2

试试这样：
Private Sub Command2_Click()
With Inet1
  .URL = "ftp://208.11.1.1"
  .UserName = "root"
  .Password = "hand1"
  .Execute , "get chb.txt c:\chb.txt"
  '***********************************
  Do while .StillExecuting
       DoEvents
  Loop
  '***********************************
  .Execute , "cd /"
End With
End Sub