Public Sub UploadFileForRecord(ClassName As String, RecordID As String, Dir As String, FileName As String, FieldName As String, Token As String)
Dim job As HttpJob
job.Initialize("UploadFileForRecord", Me)
Dim nv As Map
nv.Initialize
nv.Put("Field_Name", FieldName)
Dim files As List
files.Initialize
Dim fd As FileData
fd.Initialize
fd.Dir = Dir
fd.FileName = FileName
fd.KeyName = "File"
fd.ContentType = "application/octet-stream"
files.Add(fd)
Dim url As String
url = "https://api.quickblox.com/data/<Class_name>/<record_id>/file.json".Replace("<Class_name>", ClassName) _
.Replace("<record_id>", RecordID)
job.UploadFile(nv, files, url)
job.GetRequest.SetHeader("QB-Token", Token)
End Sub