7,762
社区成员
发帖
与我相关
我的任务
分享VB如何上传文件?
VB如何上传文件?以下代码为啥不行?
With Inet1
.URL = "http://xxx.xxx.net"
.UserName = "xxx"
.Password = "xxx"
.Execute , "Get xxx.xx c:\xxx.xx"
.Execute , "CLOSE" '关闭连接。
End With
With Inet1
.URL = "http://xxx.xxx.net"
.UserName = "xxx"
.Password = "xxx"
.Execute , "Get xxx.xx c:\xxx.xx"
.Execute , "CLOSE" '关闭连接。
End With
...全文
请发表友善的回复…
发表回复
Truman 2001-11-20
- 打赏
- 举报
我早高定了
zytang 2001-11-09
- 打赏
- 举报
guanzhu
Truman 2000-08-01
- 打赏
- 举报
居然无人会此问题?
liyang 2000-07-24
- 打赏
- 举报
查查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
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
Truman 2000-07-24
- 打赏
- 举报
毛病不在Get or Put,
不管是上传还是下载都不行.
不管是上传还是下载都不行.
liyang 2000-07-24
- 打赏
- 举报
你这好像是下传耶(download)?
.execute ,"put xxx.xxx url\..."
.execute ,"put xxx.xxx url\..."
