不显示删除回复显示所有回复显示星级回复显示得分回复 关于连接ftp的问题，在线等，急！！！急！！！急！！！

//一个函数的作用，去ftp上取图像
Public Function ProcessDocTask() As Long
  frmBatchProcess.InetRecon.url = "ftp://" & m_szFTPUser & ":" & m_szFTPPassword & "@" & m_szFTPServerName  isBusy = True
  frmBatchProcess.InetRecon.Execute , "get " & szImagePath & " " & Chr(34) & szTempPath & Chr(34)
  writeSealLog "ENDETGETIMAGE", "", "", ""
  Do While isBusy
  isBusy = frmBatchProcess.InetRecon.StillExecuting
  DoEvents
  Loop
End Function//定时器的作用
Private Sub Timer2_Timer()On Error GoTo errorHandle  m_Timer = m_Timer + 1
  If m_Timer > 5 Then
  InetRecon.Execute , "CLOSE" '关闭ftp连接
  m_Timer = 0
  End If
  Exit Sub
errorHandle:
  MsgBox Err.Description, vbExclamation, "错误提示"
  End
End Sub现在是这样的，我想使这两个里的InetRecon.Execute方法中如何確保Server已完成第一個 Request(cd ) 後再執行第二個(get) 就是说互不影响，网上有个帖子说在两个
兩個Request加入下列程式碼
While Inet1.StillExecuting
  DoEvents
Wend问题就解决了，但是我不太明白，在我的代码里怎么加，谁能指点一下啊？感激不尽！