主题：微信审批流程用代码上传文件

Dim hc As new HttpClient(CExp(url, Functions.Execute("GetSPAccessToken")))

hc.Files.Add("media",ProjectPath & "Reports\采购明细.xls") '指定要上传的普通文件

Dim jo As JObject = JObject.Parse( hc.getdata)

If jo("errcode") = "0" Then

    Dim dr As DataRow = DataTables("Materials").AddNew()

    dr("Type") = "file"

    dr("MediaID") = jo("media_id")    

    dr("UpdateTime") = Date.Now

    dr.Save()

Else

    Output.show(jo.ToString)    

End If