我用Inet 的 put 或 send 上傳到 FTP,我要如何得知已經上傳完了沒有
創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(1) 人氣()


留言列表 (1)

發表留言
  • Yvonne
  • 用 inet 的StateChanged事件
    Private Sub inet1_StateChanged(ByVal State As Integer)
    Select Case State
        Case icError
          '這個錯誤有時是因為你下傳的檔案與
          '現有的檔案重覆了
        Case icResolvingHost, icRequesting, icRequestSent
          Debug.print = "Searching..."
        Case icHostResolved
          Debug.print = "Found."
        Case icReceivingResponse, icResponseReceived
          Debug.print = "Receiving data."      
        Case icResponseCompleted
          Debug.print = "完成" 
        Case icConnecting, icConnected
          Caption = "Connecting."
        Case icDisconnecting
        Case icDisconnected
        Case Else
          Debug.Print State
      End Select
    End Sub