Android Question Upload to OneDrive

Sub SyncFolder(localFolderPath As String, parentFolderId As String) As ResumableSub
    ' Get a list of all files in the local folder
    Dim localFiles As List = File.ListFiles(localFolderPath)
    Log("Parent Folder ID: " & parentFolderId)
    ' For each local file, check if it exists on OneDrive and upload it if necessary
    For Each localFileName As String In localFiles
        ' Check if the file exists on OneDrive
        Dim job As HttpJob
        job.Initialize("", Me)
        job.Download($"https://graph.microsoft.com/v1.0/me/drive/items/${parentFolderId}:/${localFileName}:"$)
        job.GetRequest.SetHeader("Authorization", "Bearer " & token)
        Wait For (job) JobDone(job As HttpJob)
        If job.Success Then
            ' The file exists on OneDrive, check if the local file has been modified since it was last uploaded
            Dim parser As JSONParser
            parser.Initialize(job.GetString)
            Dim oneDriveFile As Map = parser.NextObject
            Dim oneDriveFileLastModified As Long = oneDriveFile.Get("lastModifiedDateTime")
            Dim localFileLastModified As Long = File.LastModified(localFolderPath, localFileName)
            If localFileLastModified > oneDriveFileLastModified Then
                ' The local file has been modified since it was last uploaded, upload it again
                UploadFile(localFolderPath, localFileName, parentFolderId)
            End If
        Else
            ' The file does not exist on OneDrive, upload it
            UploadFile(localFolderPath, localFileName, parentFolderId)
        End If
        job.Release
    Next
End Sub

Sub UploadFile(localFolderPath As String, localFileName As String, parentFolderId As String) As ResumableSub
    ' Initialize OkHttpClient
    Dim hc As OkHttpClient
    hc.Initialize("hc")

    ' URL encode the file name
    Dim su As StringUtils
    Dim encodedFileName As String = su.EncodeUrl(localFileName, "UTF8")
    encodedFileName = encodedFileName.Replace("+", "%20")

    ' Get the file's MIME type
    Dim extension As String = localFileName.SubString(localFileName.LastIndexOf(".") + 1)
    Dim mimeType As String = GetMimeType(extension)

    ' Log MIME Type and File Extension
    Log("File Extension: " & extension)
    Log("MIME Type: " & mimeType)

    ' Open the file as an InputStream
    Dim InStream As InputStream
    InStream = File.OpenInput(localFolderPath, localFileName)
    
    ' Log the InputStream
    Log("Stream = " & InStream)

    ' Get the file length
    Dim FileLength As Long
    FileLength = File.Size(localFolderPath, localFileName)

    ' Log the File Length
    Log("Length = " & FileLength)

    ' Initialize the POST request with InputStream
    Dim endpoint As String = $"https://graph.microsoft.com/v1.0/me/drive/items/${parentFolderId}/${encodedFileName}:/content"$
    Dim req As OkHttpRequest
    req.InitializePost(endpoint, InStream, FileLength)

    ' Log the Endpoint
    Log("Endpoint = " & endpoint)

    ' Set the request's Content-Type header
    req.SetContentType(mimeType)

    ' Set the request's Authorization header
    req.SetHeader("Authorization", "Bearer " & token)

    ' Log the Authorization Header
    Log("Authorization Header: " & "Bearer " & token)

    ' Execute the request
    hc.Execute(req, 1)
    Wait For hc_ResponseSuccess(Response As OkHttpResponse, TaskId As Int)
    If TaskId = 1 Then
        If Response.StatusCode = 201 Then
            Log($"Uploaded ${localFileName} to OneDrive"$)
        Else
            Log($"Failed to upload ${localFileName} to OneDrive: ${Response.StatusCode}"$)
        End If
    End If
    InStream.Close ' Close the InputStream
End Sub