'''’------------------------本函数是用于固定资产获取图片文件的
''''___________1?传入第一个参数:需要访问的服务器地址
''''___________2、传入第二个参数：访问的文件名及其存放位置
Public Function getFiles(ByVal address As String,ByVal filePath As String,ByVal fileName As String)
Dim hc As New HttpClient(address)
hc.C
Dim jo As new JObject
jo("photo") = filePath
hc.Content = jo.ToString
Dim stb As String = ProjectPath & "picture\" & fileName
Try
If hc.GetFile(stb) Then
Return stb
Else
Return "fail"
End If
Catch ex As Exception
'Return ex.message
End try
End Function
加好友 
发短信
Post By：2022/7/11 16:30:00 [只看该作者]
