VB如何上传文件?

Question

你这好像是下传耶(download)?
.execute ,"put xxx.xxx url\..."

Answer 1

毛病不在Get or Put,
不管是上传还是下载都不行.

Answer 2

查查ResponseCode和ResponseInfo，看返回错误是什么?
Private Sub Inet1_StateChanged(ByVal State As Integer)
   Dim strMess As String ' Message variable.
   Select Case State
   ' ... Other cases not shown.
   Case icError  ' 11
      ' Get the Text of the error.
      strMess = "ErrorCode: " & Inet1.ResponseCode & _
      " : " & Inet1.ResponseInfo
   End Select   Debug.Print strMess