(Visual Basic 6.0) Upload a File to an AI Provider (OpenAI, Google, Antropic, X)

See more AI Examples

Note: This example requires Chilkat v11.4.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim success As Long
success = 0

Dim ai As New ChilkatAi

' The provider can be "openai", "google", "claude", "grok", or any AI that supports uploading files for later reference by ID.
ai.Provider = "openai"
' Use your provider's API key.
ai.ApiKey = "MY_API_KEY"

' We can upload directly from a file in the filesystem, or from a Chilkat StringBuilder, or from a Chilkat BinData.

' Some AI providers require a content-type.
' Also, some AI providers are picky about what content-type's are accepted.
' Check the AI provider's documentation.
' "application/json" is generally always acceptable.
' "text/plain" can be used as a fallback for any text file.
Dim contentType As String
contentType = "application/json"
Dim localFilePath As String
localFilePath = "qa_data/hamlet.json"
Dim filenameOnServer As String
filenameOnServer = "hamlet.json"

' Upload directly from a file.
Dim file_id As String
file_id = ai.UploadFile(localFilePath,contentType)
If (ai.LastMethodSuccess = 0) Then
    Debug.Print ai.LastErrorText
    Debug.Print "AI File Upload Failed."
Else
    Debug.Print "File ID: " & file_id
    Debug.Print "File uploaded."
End If

' Upload from the contents of a StringBuilder
Dim sb As New ChilkatStringBuilder
success = sb.LoadFile(localFilePath,"utf-8")
If (success = 0) Then
    Debug.Print sb.LastErrorText
    Exit Sub
End If

file_id = ai.UploadFileSb(sb,filenameOnServer,contentType)
If (ai.LastMethodSuccess = 0) Then
    Debug.Print ai.LastErrorText
    Debug.Print "AI File Upload Failed."
Else
    Debug.Print "File ID: " & file_id
    Debug.Print "File uploaded."
End If

' Upload from the contents of a BinData
Dim bd As New ChilkatBinData
success = bd.LoadFile(localFilePath)
If (success = 0) Then
    Debug.Print bd.LastErrorText
    Exit Sub
End If

file_id = ai.UploadFileBd(bd,filenameOnServer,contentType)
If (ai.LastMethodSuccess = 0) Then
    Debug.Print ai.LastErrorText
    Debug.Print "AI File Upload Failed."
Else
    Debug.Print "File ID: " & file_id
    Debug.Print "File uploaded."
End If