B4J Question Upload File to a Web Server

Dim Job As HttpJob
Job.Initialize("", Me)

Dim Link As String = "http://www.mysite.com/api.php" 'Link to the php script or API or anything that's going to receive the file
Dim Files As List
Dim mp As MultipartFileData
Files.Initialize

mp.Initialize
mp.Dir = File.DirApp & "/temp"  'File location
mp.FileName = "myfile.txt"
mp.KeyName = "file"
mp.ContentType = "text/html"   'You can use "application/octet-stream" for other types
Files.Add(mp)

Job.PostMultipart(Link, Null, Files)
Wait For (Job) JobDone(j As HttpJob)
If Not(j.Success) Then Log("FAILED")

<?php
$target_dir = "uploads/";
$target_file = $target_dir . basename($_FILES['file']['name']);

if (move_uploaded_file($_FILES["file"]["tmp_name"], $target_file)) {
    echo "OK";
}
else {
    echo "ERROR";
}
?>