Foxtable(狐表) → 用户栏目 → 专家坐堂 → 企业微信素材上传不成功

共有2483人关注过本帖树形打印复制链接主题：企业微信素材上传不成功

erdbeer

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：447 积分：4793 威望：0 精华：0 注册：2010/4/11 14:09:00

企业微信素材上传不成功 发帖心情

Post By：2019/12/11 15:54:00 [只看该作者]

Dim url As String = "https://qyapi.weixin.qq.com/cgi-bin/material/add_material?type=image&access_token={0}"
Dim hc As new HttpClient(CExp(url, Functions.Execute("GetQYAccessToken")))
hc.Files.Add("media","c:\data\sample.jpg") '指定要上传的图片文件
Dim jo As JObject = JObject.Parse( hc.getdata)
If jo("errcode") = "0" Then
    Dim dr As DataRow = DataTables("Materials").AddNew()
    dr("Type") = "image"
    dr("MediaID") = jo("media_id")
    dr("FileName") = "sample.jpg"
    dr("UpdateTime") = Date.Now
    dr.Save()
Else
    MessageBox.Show(jo.ToString)
End If

按帮助的代码，MediaID 是空的？

看了企业微信的API，企业微信没有永久素材，那该怎么改代码呢？